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EDITORIAL 


Chers Amis, 


Le duo infernal à encore frappé ! Après FINPUT, l'indispensable STRUC2 et autres 
irremplacables Lex, Pierre David et Janick Taïllandier ont enfin terminé EDIT, 
sûrement le plus gros Lex réalisé hors des locaux de Hewlett Packard. Nous 
pouvons tous les féliciter de cet enorme travail. Comme vous le savez, notre 
devoir étant non seulement de vous permettre d'obtenir ces programmes, mais 
surtout de vous montrer comment ils sont faits, nous n’avons pas hésité à vous 
présenter l'intégralité du source. Celui ci faisant plus de 250 pages, cela 
représente à coup sûr une première dans la presse informatique. Pour des 
raisons évidentes, nous avons décidé de modifier notre mise en page, en 
compactant les listings et les notices, ainsi qu’en échelonnant la parution sur deux 
ou trois mois. Nous espérons ainsi que vous trouverez dans ce source les 
réponses que vous cherchez pour vous propres Lexs. 


Deux nouvelles maintenant. La mauvaise d’abord : la HP-41 cessera d’exister 
courant 1990. La bonne nouvelle, venant de milieux bien informés, est que son 
successeur devrait sortir aux USA au début de l’année prochaine. D’après les 
rarcs renscignements dont nous disposons, il s'agirait d’une machine dotée 
d’entrées-sorties (grace à une RS-232), d'environ 120 Ko de mémoire, mais 
surtout équipée d’une mini tablette à digitaliser, pemettant d’entrer des formules 
directement en écrivant dessus. Son prix sera d’environ 4000 Frs. Bien entendu, 
nous vous donnerons d’autres précisions dès que possible. Zut ! J’allais oublier 
son numéro : ce sera Je 48. 


En attendant, nous vous souhaitons bonne lecture... 


Le Bureau 
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COURRIER DU COEUR 


Jean Pierre Karpinski 
23 rue Rosenwald 
75015 PARIS 

Tel : (1) 45 30 25 77 


Vend : 


HP-41CX avec accessoires. Prix à débatre. 


Maubert Electronic 
49 Bd St Germain 
75005 Paris 


Vend : 
Accessoires pour HP-71 : Module éditeur de texte, 


Translator Pac, Lecteur de cartes ainsi que des 
logiciels pour HP-75. Materiel neuf. 





Ébs: de us Imvenkens: 


le martesu- pPiqveur.… 





JPC 68 Page 2 


HP-28 


L. Chouraki HP-28 Programmmation et applications 4 
G. Le Stum Methodes de tri 5 
M. Polski Fonction LINE Ô 


JPC 68 Page 3 





HP-28S 
PROGRAMMATION 
ET APPLICATIONS 


Ce livre de Jean-Michel Ferrard est un grand (235 p) 
recueil de programmes à vocation principalement 
mathématiques. On ne lui en veut pas, il est agrégé de 
Mathématiques et professeur de math. sup. à 
Toulouse (lycée Déodat de Séverac). 


Le livre est composé de 14 groupes de programmes, 
au total 45 Ko, oui 45 Ko ce n’est pas une coquille, il 
vous faudra choisir. Voici un bref aperçu du contenu 
de cette corne d’abondance de programmes 
taupinaux. Tous les programmes sont agrémentés 
d'exemples, d'un diagramme de pile et d’un mode 
d'emploi. 


Arithmétique 


Dans ce répertoire on trouve des programmes de 
base. Décomposition en facteurs premiers, liste des 
diviseurs premiers, pgcd, ppem, simplification de 
fraction, somme de fraction. On y trouve aussi des 
programmes plus complexes : fonction de Moebius, 
indicateur d’Euler et calcul des  polynômes 
cyclotomiques 


Nombres Réels et Complexes 


Ce groupe de programmes tourne autour des sommes 
infinies, produits infinis, relations de récurences. 
SERIE permet le calcul des sommes partielles d’une 
série, PROD les produits partiels des produits infinis. 
FRCON calcule les fractions continues; R->Q passe d’un 
réel à sa forme fractionnaire. ITER permet les calculs 
récurrents (d'ordre 1 2 ou 3). xp et RACN calculent les 
racines nièmes. TRIG linéarise (le contraire) les 
puissances de sin et cos. Et enfin INTZ intègre sur un 
chemin du plan complexe. 


Poiynômes 


Dans ce répertoire qui est un des plus gros, on trouve 
tout pour manipuler les polynomes addition, 
multiplication, division selon les puissances 
croissantes ou décroissantes, d'élever à une puissance, 
de composer (utile pour les DL). Des programmes 
donnent les racines des polynomes de degré 
quelconque. On trouve aussi un générateur des 
polynomes de Tchébitchev (les deux espèces). 


Calcul Matriciel 
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Vous pourrez trouver le rang, les valeurs, espaces 
propres et polynôme caractéristique d’une matrice 
carrée. SYST vous permetras de calculer la solution 
symbolique du systeme de n équations à p inconnues. 
Plus quelques programmes de manipulation de lignes 
et de colonnes. 


Analyse 


Non il n’y a pas toute l'analyse dans ce chapitre, 
seulement un programme d’approximation d’une 
fonction (moindre carrés), calcul du polynome, 
d’'interpolation de Lagrange, résolution de systeme de 
deux ou trois fonctions (2 ou 3 variables), résolution 
de y’=f(xy) (Rungc-Kutta) et un programme de 
calcul des sommes partielles de la série de Fourier 
d’une fonction. 


Développements Limités 


En codant les DL par des vecteurs on obtient un 
temps de calcul impressionant au prix il est vrai de 
6 Ko de mémoire. 


Géométrie 


Quelques programmes qui résolvent des petits 
problèmes. Une application est de déterminer si le 
rayon laser touchera ou non la soucoupe volante, 
mais l’auteur du livre n’est apparament pas intéressé 
par ce sujet, dans ce livre. 


Géométrie Différentielle 


Pour serulement 26 Ko de programmes les 
possibilités sont impressionnantes. Rectification des 
longueur des courbes, integrales curviligne, calcul 
d’aire délimité par une courbe, rayon de courbure, 
divergence, rotationnel, gradient, laplacien, et enfin le 
calcul de la différentielle d'une fonction. 


Graphisme 

Tout pour le tracé paramétré, polaire, les deux, les 
fonctions implicites, l'enveloppe d’une famille de 
droites. Le tout agrémenté d’un programme de tracé 
automatique de familles et d’animation. 

Entiers Longs 

On devrait dire très longs, même très très longs car 
leur taille n’est limité que par la mémoire et le temps 


de calcul. Exemple : 


148 472 100 632 * 911 048 399 582 500 002 = 
135 265 269 663 435 487 083 084 201 264 


Probabilités 


Plus besoin des tables. 

Statistiques simples 

5,5 Ko pour 18 programmes : calcul des moments, des 
quantiles, des moyennes, et tracé des diverces courbes 
et histogrames. 


Statistiques Simples 


Etude des statistiques doubles discrètes, régression et 
corrélation. 


Bases de Données 


Les enrgistrements peuvent avoir jusqu’à 4 champs 
(chaînes de caractères). les fonctions sont courantes 
tri, recherche, modification, suppression, et ajout. 


Ce livre est diffusé par D21 DIFFUSION pour un prix 
de 200F ct pourra être consulté lors de nos 
prochaines réunions. 


Laurent Chouraki (472) 





METHODES DE TRI 


Tri à bulles 


Ce programme prend une liste au niveau 2, un 
programme au niveau 1 et renvoie la liste triée. Le 
programme doit opérer sur deux éléments de la liste 
Al et A2 et donner 1 si Al doit être placé avant A2 et 
0 sinon. 


Exemple : pour trier une liste de nombres par ordre 
croissant ou une liste de chaînes par ordre 
alphabétique, entrer la liste puis « < » et exécuter TRI. 


Le premier élément constitue une sous-liste triée, on 
lui ajoute l'élément suivant de manière à obtenir une 
nouvelle sous-liste triée. On recommence jusqu’au 
dernier élément de la liste. Pour ajouter un élément E 
à une liste triée, on le compare au dernier élément de 
la liste, si E lui est inferieur, on les échange. On 
réitère ce test entre E et l’element le précédant 
jusqu’à ce qu’il ne soit pas vérifié ou qu’on arrive au 
début de la liste. On a alors obtenu une nouvelle liste 
triée. 


TRI 
« 


-> CLAUSE 


DUP SIZE 2 SWAP 


FOR SJ: À = À 
FOR k 
K GETI -> n1 
« 
GETI -> n2 
« 
DROP 


IF n1 n2 CLAUSE NOT THEN 
k n2 PUTI n1 PUT 

ELSE 
1 ’k’ STO 

END 


» 


» 
Tri par dichotomie 


Ce programme s'utilise de la même manière que celui 
de tri à bulle mais fonctionne différemment. Il es 
plus rapide mais occupe plus de mémoire. 


On prend les 2 premiers éléments, on les trie puis on 
insère l'élément suivant de manière à obtenir une 
nouvelle sous-liste triéc. On recommence jusqu’au 
dernier élément de la liste. Pour insérer un élément E 
dans une liste triée, on le compare avec le premier et 
le dernier élément pour savoir si on peut l'ajouter à 
une des extrémités, sinon on le compare avec 
l'élément du milieu de la liste. On sait ainsi dans 
quelle moitié il se trouve, on recommence avec cette 
moitié jusqu’à ce que E soit ajouté (le procédé finit 
toujours par s'arrêter, car au pire on arrive à une liste 
de taille 1, E est donc soit avant soit après). 


TRI2 
« 
-> CLAUSE 
« 
DUP 1 GET 1 ->LIST OVER SIZE 2 SWAP 
FOR F OVER F GET -> X 
« 
IF X OVER 1 GET CLAUSE EVAL THEN 
X 1 ->LISTE SWAP + 


ELSE 
IF DUP F 1 - GET X CLAUSE EVAL THEN 
X 1 ->LIST + 
ELSE 
1 LE 
WHILE DUP 2 - -1 == NOT 
REPEAT 


DUP2 + 2 / IP 4 PICK OVER GET X SWAP 
IF CLAUSE EVAL THEN 
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SWAP DROP 
ELSE 
ROT DROP SWAP 
END 
END 
3 DUPN DROP 1 SWAP SUB X 1 ->LIST + 
4 ROLLD SWAP DROP F SUB + 
END 
END 
» 
NEXT 
SWAP DROP 
» 


» 


Guillame Le Stum (432) 





UNE FONCTION LINE 


Source: La découverte du CBM 64 de D.J. David 


L'objet de cette routine est de tracer une ligne entre 
deux points de l'écran de la HP-28. 


Cette routine se décompose en deux subroutines. La 
première vise à restaurer des coordonées de pixels de 
manière à ce qu'ils aillent de 1 en 1. En effet, la 
HP-28 peut numéroter ses pixels de façon infinie 
selon l'échelle choisie par l'utilisateur. Or, la routine 
LINE - déjà extremmement lente - se ralentit en 
recalculant à chaque fois le pas de décompte lorsqu'il 
trace les points un à un à l’écran. Cette première 
subroutine, ECHLI (échelonne LINE) fixe ce pas un fois 
pour toutes à 1 (ou -1) au niveau du STEP et réajuste 
(avec px et pv) les coordonées entrées et celles de 
l'écran. Votre ancien PPAR sera sauvegardé dans la 
variable NPAR. 


Tâchez donc d’executer ECHLI toujours au moins une 
fois avant le premier LINE ! 


Quant au second programme: 


On a des pointillés au lieu d’une ligne continue car on 
trace des points qui, s'ils correspondent à des # 
consécutifs, ne correspondent pas à des Y 
consécutifs ! (la pente est supérieure à 1) En fait la 
solution est de tracer tous les points (X,Y{X)); 
(CRY(X) +1); es (X+LY(X+1)-1); (X+1,Y(X+1)) au 
lieu de (X,Y{X)) et (X+1,Y(X+1)), et ceci, par une 
bête formule d’interpolation... 
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Ainsi il faudra faire une boucle sur les X, soient 
(X0,Y0) et (XL, Y1) les points de départ et d’arrivée, et 
(X,Y) le point intermédiaire, la formule sera : 


X=X0+(Y-Y0)(X1-X0)/(Y1-Y0) avec Y allant du Y 
précédent au Y final. 


Mais la pente peut aussi poser problème en Y ! En 
suivant le même principe qu'avant, on aurait deux 
boucles imbriquées... 

Un truc de D.J. David : 

On peut gagner une boucle en remarquant que si: | 
X1-X0 | > | Y1-Y0 |, les Y correspondant à deux X 
consécutifs seront à fortiori consécutifs. On pourra 
donc ne mettre que la boucle sur X. Et si | X1-X0 | < 
| Y1-Y0 |, il suffit d’échanger les rôles de Y et de X ! 


On peut faire de jolis pointillés en multipliant la pas 
par 2, 3, … ce qui accélère le tracé. Le pied serait 
qu’un lecteur plus astucieux nous informe d’une autre 
méthode plus rapide, ou qu’il réécrive ce programme 
en code-machine, si c’est possible! 


ECHLI 

« 
[PPAR'’ DUP !NPAR' STO RCL LIST-> 4 DROPN - C->R 
31 SWAP / ABS '’PY' STO PY H* 
136 SWAP / ABS ’PX' STO PX W* 


LINE 
« 
C->R ROT C->R PY * SWAP PX * ROT PY * 
& ROLL PX * -> YO XO Y1 x1 
« 
IF Y1 YO - ABS X1 X0 - ABS > THEN 
Y1 YO - SIGN ST’ STO YO Y1 
FOR Y Y YO - X1 XO - * Y1 YO - / 
XO + Y R->C PIXEL 
ST STEP 
ELSE 
X1 XO - SIGN ST! STO X0 X1 
FORUM AO ETVT YO ENMENT XOOPS 
YO + X SWAP R->C PIXEL 
ST STEP 
END 
» 


Mode d'emploi : 


1- Assurez-vous que l'échelle est bonne: faites ECHLI 
si vous ne l’avez pas déjà fait. 
2 - Entrez les coordonnées des points: 
- de départ (sous forme de nombres complexes). 
- d'arrivée. 
3 - Faites LINE 
Michel Polski (531) 


HP-71 
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L'EDITEUR DE TEXTES 


Nous sommes heureux et fiers de vous présenter 
aujourd’hui la dernière création des ateliers 
Taillandier / David, le fruit de plusieurs mois de 
travail, un des programmes dont nous sommes le plus 
fiers : l'éditeur de textes en assembleur. 


Qu'est-ce qu'un éditeur de textes ? 


Posons les bonnes questions. et apportons-y les 
bonnes réponses ! 


Un éditeur de textes est tout simplement un 
programme pour rentrer des caractères dans un 
fichier TEXT, et les modifier car vous savez bien qu’il 
y a toujours des corrections à faire : tout le monde 
fait des phôtes dauretaugraf ! Notez que 
Hewlett-Packard vend un tel programme (nommé 
EDTEXT) dans ses modules Forth / Assembleur et Text 
Editor. 


Le module Text Editor contient, en outre, un 
formateur de textes. Il s’agit d’un programme pour 
aligner des paragraphes, centrer des lignes, etc. De 
tels programmes ont déjà été publiés dans JPC. Ne 
confondez donc pas formatteur et éditeur. 


Pourquoi un éditeur ? 
Tiens, oui, pourquoi ? Il en existe pourtant déjà un ! 


Certes, Hewlett-Packard vend EDTEXT dans deux de ses 
modules. Mais tous ceux qui ont essayé ce 
programme connaissent sa lenteur effroyable. Point 
nest besoin d’avoir tapé tous les articles de JPC 
depuis les débuts pour s’en rendre compte ! EDTEXT 
met souvent quelques dizaines de secondes pour 
s’initialiser, et autant pour sortir. Le moindre ajout 
d’une ligne prend un temps intolérable en utilisation 
interactive. 


Le problème est donc posé et de nombreuses 
personnes se sont penchées sur le problème. Des 
éditeurs en assembleur ont été écrits à divers endroits 
dans le monde. 


Un des premiers essais sérieux a été réalisé il y a fort 
longtemps par notre ami Henrik Helnæs, de 
Copenhague au Danemark. Il était basé sur un 
principe voisin de l'éditeur du HP-75 c’est à dire que 
vous éditiez un fichier texte comme un programme 
Basic. Malheureusement, son éditeur n’a jamais 
dépassé le cadre expérimental. 
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Ensuite, Jean-Jacques Moreau s’est attelé à la tâche. 
Le résultat d’un été très studieux fut TEDIT, que 
certains d’entre vous connaissent peut être. Son 
éditeur, à l'opposé de celui d’Henrik, était strictement 
compatible avec EDTEXT d'HP. Cet éditeur était une 
belle réussite, mais il souffrait de quelques problèmes 
majeurs (par exemple, certaines fonctions 
provoquaient un Memory Lost). De plus, il n’a jamais 
été terminé et est depuis resté à l’état de chantier. 


C’est vers le milieu de l’année dernière que nous nous 
sommes à notre tour penchés sur le problème. Il a 
fallu 30 jours complets de programmation répartis sur 
onze mois pour le résoudre. 


Le cahier des charges 


Nous nous étions fixés trois objectifs : 

- rapidité maximum, 

- totalement compatible avec EDTEXT d’HP, et 
- ajouter des extensions telles que les 
génériques compatibles Unix. 


chaînes 


La rapidité est la raison d’être de cet éditeur. La 
programmation en assembleur ne suffit pas, comme 
la montré l’éditeur de Jean-Jacques. En effet, son 
éditeur devenait très lent dès que le fichier prenait du 
poids. Dès qu'il dépassait les 500 lignes, le 
ralentissement était très net, pour la simple raison 
qu'il devait parcourir toutes les lignes à chaque 
opération. Aujourd’hui, avec notre éditeur, vous nc 
prenez pas plus de temps pour vous rendre à la ligne 
5000 qu’à la première du fichier. Le résultat est 
toujours immédiat. La rapidité était notre principal 
objectif. Nous avons tout fait pour y arriver. 


La compatibilité avec EDTEXT était un élément 
important. En effet, la majorité d’entre vous ont déjà 
pratiqué et pratiquent encore cet éditeur. Vous êtes 
donc habitués à son jeu de commandes, à ses 
caractères génériques, etc. Seuls quelques points 
mineurs ont été modifiés à la lumière de notre 
expérience. Les différences sont listées dans la page 
de manuel consacrée à TEDIT. 


Enfin, il était indispensable d’ajouter des extensions. 
Par exemple, EDTEXT dans le module Forth 
Assembleur n’a pas de fonction d’aide. Nous en avons 
intégré une, plus utile d’ailleurs que celle du module 
Text Editor. Une autre extension est l'accès à la pile 
de commandes, que beaucoup d’entre nous 
regrettaient de ne pouvoir utiliser avec EDTEXT. Une 
autre extension bien pratique est l’ajout des chaînes 
génériques et d’un mode de fonctionnement inspirés 
des éditeurs existant sous Unix. Eh oui, le HP-71 se 
met à ressembler à Unix ! 


Sous le capot 


Pour les passionnés d’assembleur HP-71, voici 
quelques détails sur le fonctionnement interne de 
l'éditeur. Il ne s’agit pas de faire une revue des 13657 
lignes ou des 351629 octets composant le source de 
XEDIT, mais simplement de donner un aperçu sur 
certains points qui nous semblent intéressants. 


Tout d’abord, il faut savoir que la rapidité de XEDIT 
tient à l’utilisation d’une fable d'accès rapide. Le gros 
problème des fichiers TEXT, qui influe sur les éditeurs 
classiques tels que EDTEXT ou l'éditeur de 
Jean-Jacques Morceau, est la nécessité de parcourir 
tout le fichier depuis le début jusqu'à la ligne 
spécifiée. Ainsi, pour éditer la ligne 3562, il faut 
parcourir 3561 lignes pour obtenir l'adresse de la 
ligne demandée. C’est un problème majeur, car 
même en assembleur, cela devient très lent. En 
revanche, lorsque vous rentrez sous XEDIT, l'éditeur 
parcourt le fichier spécifié, et mémorise l’adresse des 
lignes 200, 400, 600, etc. (c'est en fait l'adresse relative 
par rapport à la deux-centaine précédente). Lors des 
accès ultérieurs, il suffit de parcourir la table. Ainsi, 
pour accéder à la ligne 3562, il faut parcourir 17 
entrées dans la table d’accès rapide pour arriver à la 
ligne 3400, puis parcourir 162 lignes dans le fichier. 
L'accès à n'importe quelle ligne devient alors 
extrêmement rapide. 


Lorsque vous détruisez ou ajoutez des lignes, cette 
table est actualisée, mais pas recalculée : si vous 
détruisez la ligne 350, la deuxième entrée dans la 
table pointera sur la ligne 399, ce qui évite un recalcul 
long. Il y a ainsi une tolérance dans la table, qui peut 
aller jusqu’à plus ou moins 50 lignes. Lorsque cette 
tolérance est dépassée, la table est recalculée. 
Concrètement, cela signifie que si vous éditez un gros 
fichier et que vous faites des gros ajouts ou 
destructions, vous noterez peut-être de temps à autre 
un ralentissement ponctuel. 


Cette table est mémorisée dans un buffer temporaire, 
qui est détruit lorsque vous sortez de xEDIT. Chaque 
entrée occupant 10 quartets, cela autorise au 
maximum environ 80000 lignes de texte. Si vous avez 
un fichier plus gros, les accès aux dernières lignes ne 
seront plus aussi rapides. Mais si vous avez un tel 
fichier, contactez-nous ! 


Un autre problème intéressant est celui des chaînes 
génériques. L’algorithme de HP tel que décrit dans 
les LD.S. Volume I ressemble plus à une astuce de 
programmeur des années 60 qu’à un algorithme ! 
Nous avons préféré nous référer à l’excellent ouvrage 
Software Tools de Brian W. Kernighan et P. J. 
Plauger, aux éditions Addison Wesley. Brièvement, 
cet algorithme est divisé en deux parties : 


- compilation de la chaîne générique en une 
succession de tokens, puis 


- recherche de la chaîne compilée dans le fichier. 


Cette chaîne compilée est placée dans un buffer, lui 
aussi temporaire. La recherche de la chaîne compilée 
est hautement récursive. Mais, heureusement, depuis 
un certain article dévoilant tous les mystères de la 
récursivité en assembleur (2), la programmation fut 
extrêmement simple ! 


Un autre point intéressant de XEDIT est que les 
affichages et les noms des comandes sont dans unc 
table de message. Cela donne un code plus complexe, 
mais la traduction des messages est maintenant 
possible. Nous avons fait, à titre expérimental, un 
traducteur. Et il marche ! Si, si ! Pour les vieux de la 
vicille, cela fonctionne comme le Lex FRALEX avec 
EDTEXT ! 


Il reste encore beaucoup de choses à dire sur ls 
entrailles de xeDiT. Mais, après tout, vous avez 
l'intégralité des sources de XEDIT, et vous pouvez 
partir à la découverte vous-mêmes ! De toute façon. 
nous nous tenons à votre disposition pour en parler 
lors des réunions mensuelles. 


Comment cela s’utilise-t-il ? 


Après les détails mécaniques, passons à la manière de 
conduire l'engin. 


Vous trouverez à la suite de cet article les pages de 
manuel que nous avons rédigées pour le manuel de 
JPC Rom. Si vous savez déjà vous servir de EDTEXT 
d'HP, nous vous conseillons de lire la page de Tenir, 
puis celle de XxEDIT. Si vous n'avez jamais utilisé 
EDTEXT, passez directement à XEDIT. 


Et les fonctions auxiliaires ? 
Il aurait été dommage de ne pas en profiter. 


Lorsque nous avons entamé la conception de cet 
éditeur, nous avions comme projet de fournir des 
fonctions auxiliaires permettant d'exploiter les 
chaînes génériques directement en Basic, dans la plus 
pure tradition du Basic HP-71. Il aurait été dommage 
de ne pas profiter de l’occasion ! 


Nous avons donc écrit trois fonctions de recherche et 
de remplacement dans une chaîne (GENPOS, GENLEN ct 
GENRPLC$), et une fonction de recherche dans un 
fichier (FILEPOS). Notons que le remplacement dans le 
fichier est assuré simplement par XED1T lui-même ! 


JPC 68 Page 9 










Nous en avons profité également pour réécrire un 
mot-clef qui n’arrêtait pas de nous embêter depuis un 
certain temps, malgré les corrections de bug 
successives : il s’agit du très récalcitrant FIN0. Il a 
profité de ce lifting pour accepter lui aussi les 
caractères génériques, ainsi que deux paramètres 
supplémentaires (et optionnels) pour préciser les 
lignes de début et fin de recherche. Cet ajout 
supprime le handicap de FIND pour trouver 
l'occurrence lorsque celle-ci est tapie dans la 
première ligne du programme. 



























Cet article est, nous en sommes conscients, bien trop 
bref pour décrire le sujet. Il faudrait au moins un JPC 
complet pour expliquer en détail, progressivement et 
complètement le fonctionnement et l’utilisation de 
l'éditeur. Nous espérons toutefois que les pages de 
manuel vous suffiront pour l’apprendre et l’apprécier. 


sur l'utilisation, sur le manuel ou sur le code, seront 
toujours les bienvenues. Les colonnes de JPC vous 
sont plus que jamais ouvertes ! 


| 
| 
| Enfin, sachez que toutes vos remarques, que ce soit 
| 
| 
| A bientôt, 


| Pierre David (37) (SIG1) 
Janick Taillandier (246) (SIG7) 


NDLR : Etant donné la taille de ce lex (10136 octets !) nous avons 
jugé inutile de le présenter dans le coin des Lex. Vous pouvez 
cependant l'obtenir en nous envoyant une disquette 3/2", que nous 
VOUS renverrons après COpie. 


js 


)u 4 

È elle est | enñndovilie qu a 
ait 4 Pierre Davcd que 
Le portait bonheur de 
casser du verre blanc 2... 
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Module prireig main. Page 093 Module principal émain.as 
V2.4 ARELIH ASS. V2.4 
dagl auvon FEILE Moguie principal imain.es A108 QC 
aee2 panan 4lûl 00662 244 CONC3) (TxEng5)-CTATESE 
agaz can + Q1U2 60065 BenGR REL(S) =TEDITe 
QUA4 pain dans Île ram-réservée 4193 GAQEA D NIRHEX D 
dans aañn e l'intégration dans JFC Rom AIQ4 HOOER 
age Où 9195 AGRER F4û CONC3) (TxEn06)-(TxTbSt) 
Aug an 16 AUARE 00044 REL(S) =XxFDITe 
APQS Ana T'MEBIT e107 40973 D NIBHEX D 
nauz pau à108 A0n74 
date dau u1a3 4074 TxTbSt 
eat a116 40074 D TxEnûl CONC1) 13 
ana d#1E A111 44075 64940454 NIBASC ‘FILEPOS" 
60470 05F435 
canvenablement ûlie 00083 07 CONCE) st 
soin de "," pour délimiter les U113 40025 BR TxEnd2 CONCI) Li 
è114 7454E4C4 NIBASC  "CENLEN" 
4115 CONC2D Let 
CN/N/E “ile T<En03 CONCI) 11 
rtion JI17 dû! NI "GRENFOS" 
sé par T/XEDIT #e030 
a11S duéaAl CONEZ) C+t 
e HNovembre A119 GeGAI TsEnd4 CONCI) 15 
rit ai: noGa4 NIRASC  'GENRPLCS" 
par UQGAC 
£a$ d'err G121 ONE QvE 
a182 06 TxEn05 9 
+ la commande "24n it un problème (ne reconnai ù123 00427 "TEDIT 
+ Aer 
+ fichier externe 9124 4aac] CONCC) 4+t 
+ bd K a125 TxEn06 CON(1) 94 
. G126 mad 44494 NIBASC "XEDIT”" 
> QAACC 45 
+ UAUCE 57 CON(2) 5+t 
+ ion Sc és a fichiers en Rom ou Secure Qa8DA FF NIBHE 1FF 
. ation d'erreur CPU 
+ - la commande K 3 dnnps TEOITA 
+ le ommandes et ! ADS 5FhGAPU 2XEDITA COSRVL =FILDCs 
+. lé 2 DG4DA EDOOUDU SOVENG  =DROFDC 
‘ REYUT" page l 
+ fficient Memory" AGAEL SFA numck =NURCK 
2 UE QAGEES SD0Q0A  resptr =RESPTR 
Æ 9 
+ Jean-Jacques Dhénin, =TEDITR 
+ =XEDITE 
ge 53 AQGEF . 
. à QQQEF + Note Lors de l'intégration dans JPE Rom, les parses de 
. GUQEF + KEDIT et TEDIT sont les mêmes que celle de ADCREATE 
+ 3 GOVEF + 
PR e c 143 QAGEF 7Di4 GOSUR fichip 
Module cie rèarh,3 Module principal sin.s 
LE om à VE. V2.4 
+ à à CE nur 
3 $ Far à F8 à AGûF à 
E si & > PO191 7C1A 
EE ei + palAS SFañoan 
27 # = An1AC ERDF GOTO 
5 : . A0110 
= + @Q11Aa ÉFunuuu Fichip *BUL 
+ j dail7 500 RTHNI 
: . vaLIA GOVENG =FSPELe 
. ou li 
Rs & Fi For Aulo1 SFOuUou virqup QOSBVL =NTOKEN 
sue d é AUIIE EFAQAQA GOSEVL COMCH, + 
“ais ÿ 480 RTNC Cy = 1 ==> ECOMMA trouvé 
” ECG UGo RÜVLNE 2MSPARe 


cher 
+ Token 
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ti 
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94145 
94149 
hatac 
4alur 
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44154 
als 


pat 





baise 


GM17Z 


+ Fin de la ps 


errp GOVENS 
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A=RC 
Di:D1 


tie extraite de ADCREATE 


ESYNTXe 
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Module principal ‘msin.s 


pasoresesreesene se etesseésesesereseesetenesesesee 
+ Auteur: Stephane Barizien 43/85 - Tnt 
. de pKYDF et champs assembleur. 
+ ere modification: M.MARTIMET ét F.DAVID 10/35 - 
+ transformation en FIELD ON | OFF. 

+ 2eme modification: M.MARTINET 12/85 - mise en 

+ place de la bascule touche CALC et suppres- 
+ 

+ 

. 


eption 











sion en FIELD ON | OFF 
Geme modification: J.Taillandier et P.David 
02 reu de JPC-LEX 


sonsssocsresn sante ses ses eee reseeesessessseenes ee 








HASF1 GOTO  HASF 


hKYDEF A=Rô ACA) = code logique 


ss... 





RINSXM 


HASF 


+ Est-on sous editeur ? Test modifie 






e RÉCAN = pressés 


site pram. 


du bit ASF 





Pege 047 
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AREUH ASS. V2.4 
00263 ER À de la touche 
40265 144000 =DEFADR espace 
Re 14C B avec 
161 ê le 
344 4 bon 
C1 nombre 
SKPTEL de 
"  CARCTERES BLANCS 
Sortie de table 
Î 
ë 
SIL, “h STLOJ=1 => definit 
rtnxmd xM=0 ST[0}=@ => touche i 
RTNCC Puis interception du Poil 
find 
tFIND EQU 75 
ÎE 
B4 
: BA 
9316 VOCA4 60804 
é 68249 
04249 F NIBHEX 
AQIAA o REL(4) 
vagë REL(4) = 
vanne CON(5) À 
+ Main Table 
+ 
ana CON(S) @1)-(FindTxTESE) 
auaaa 
1 Ne Gtmt. Non programmable 
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4104 
“ann 
O4lE 


YOU aE 
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Z @6261 


J4106 3 
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LAnñgaa 
144 
3170 
SEA 

41 
31E6 
SEA 


6 Ra 
MAT 
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30 
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Module principal °main.as 





4 
ë Êt@y := ou à 
F 
OYES à Il faut le mettre à 1 
+ Il faut mettre 3 À 





LOti 






2e bit ASF à à 
:ONC 
+ [1 faut mettr 

fie 








fin de programme 
antinu 


























SPes 
A=Q 
GOYES 
LCASE 
FA4C ? 
GOYES © 
Dâz:0d+ © 
* 
rtal 
SPAE. & Y a-t-il des remarques 
8 
rtn Qui: fin de programme 
SPAS D ECURSOR ification 
A=DATE R position du curseur 
LC(2) €MNEMFY-1 en fonction 
TA è des 
SFIA differents 
{NODF \-L champs: 
8 MNEMF: mnemo-field 
SP18 MODF : modification-field 
&COMF)-1 COMF : comment-field 
E 
rtni 
SP1è A Redefinition 





Fage WUE 
BRELIH ASS 
 AG2CE 
3 QOICE 
go0CE 













CLR 
WaiCE 


dance 
8 QacDC 
a aaonc 
ae2ncC 
aa20c 
2 AQCE3 
6 


LE 


EUR 


QALE A 
GULES 





AQCES 
7 QUES 
& QUEA 
9a2€9 
CRE) 
QUCEA 




















ule principal €main.as 





ssssssrssessres es etesesssssessmessesssssosese 


Do 





ynt 





+ Ent 
+ 1 TRGCE ï Rèli#, 


sDaagoe 





Fescoë 













+ 
+ À = taken de ce qui suit l'expression 
+ Di = * derrière le texte correspondant à À 
. 
èFyoeon 
SAE Pas de ‘." : c'est fini 
ei ck2li# sortira une virgule 
+ 
+ Une virquie à été reconnue, donc 1! faut un ou 
+ deux numérus de ligne. 
+ C'est le rèle de chDti#. empruntée à JPC Rom et 
+ plus précisément à D/FBLIST/RENUMREM 
+ 
+ 


+ ATTENTION ! LE CODE CONTINUE ! 


+ 

onossoreso nes to sense ses erenenenesseseersossenses 
+ chkîli4 

+ 

+ Rut : parse line#is <line#2> ] 

+ Entrée 

+. _- DI =" blancs optionnels avant 

+ Sortie 
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udan 











s 2 <line#”* 


admet lines 


erreur 





Page wli Module principal +miin.as 
AREUH ASS. VOA eee SYMPOL TABLE eee 














=TEDITE QOGEF Rel 0137 
TeEnûl MUA7A4 Rel @110 - 
û wa 113 - 
“06 9116 - 
ace OLIS = 
naesc à - bla] 
QanC3 Rel - 0195 


00074 Re} - 0081 VUES VUS3 0013 0097 OI01 105 
VÈI7A Rel 6156 - 0179 A186 











VERRSE QA1GA Rel AIS - 179 6 
=XEDITà 640D3 Rel @131 
=XEDITe Extrn Ukn - 0196 
=XEDITR NQAEF Rel 

asf1ô AAIEQ Rel 9246 
asfcà QQ1E7 Rel è - 0250 
ckili# @02FD Rel 407 - @407 
chtis Q02E3 Rel @401 

errp 40139 Rel 0165 - 
fichip VYIIQ Rei 0152 - 143 
find QQ29E Rel 0309 - 

hASF 6@19B Rel 0222 - 




















04180 Rel 0205 - e219 
| 90154 Rel 9297 - 
GOQEL Abe 0U73 - 4312 
Extra Ukn & 023 
41 Ë ENC Q80E1 Rel 6134 - 
Extra Ukn - 
AOCE Rel 9484 
AQGES Rel 4147 0154 
QUIF2 Rel 4264 ALEU 
Rel 
Ÿ 3 Rel 0256 
=tCONMA Ukn - Wall 
StLINES Extrn Ukn - 0408 
t 90076 Abs 0074 - 0077 6078 0112 6115 0118 121 0124 0127 
tFIND nag4B Abs Wall - 314 0315 0337 
virgup 49121 Rel 0156 - W148 
Source : main.as 
Object cbi/main.so 
list/main.al 
Date : Sat Aug 12 17:40:48 1989 
: AIT le principal «msin.as 
jH ASS. V2.4 vers SYMBUL TABLE eee 
Errors og 
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AREUH ASS. VZ.4 AREUH ASS 
9001 9000n * 9096 Upu9ù C2823408 NIBASC Cd 
daa2 ganag e Fichier généré automatiquement par amg LEVÉE LUE 
0043 4000 + et modifié automatiquement psr <hmcg CUUETR CON) 1 
9094 GhuuQ + 49930 
@aas Gouan MBASE EQU 16 0933 + 
dûNE paaua NULL EU CHBASE Ds EDIT ulaa 
aoa0û =eXMEM EQU 5 Insufficient Memory 414 tescage # 22 
à stelCHD EQU Invalid Cmd 3 
CELERLEC CE) steIPAT EG 3 Invalid Pattern 410% 
aulu gagna stelCMP EQU CMBASE )+4 No Room for Fattern 60 
null vou =tePLIN EG MEASE +8 Line °, Cmd: 0104 GOGE2 AG HIBASC 
ag12 Anun =tePEOF EC CMBASE +6 Eaf. Cmd 9195 GGGEA4 € CONC1) 12 
eeaqc steE0F EQU CMBASE )+7 CEof] #10E GUGBS 
06h na =teDELE EQU CMBASE )+5 06 to Delet 6107 6OORS + [Eof] 
5 auupa steCONF EQU Yes/No/Guit 919E 000BS 01 CON(2) 1E 
5 66000 =tekEYS EQU YHQ 0193 60487 71 CONCZ y =teE0F Message # 27 
Qanae =teVCMG EQU CDEHTJLMPORSTX 4119 9hwEJ 4 CONCI) à 
& puuga =teHLäû EQU (MBASE)+12 Copy: Ch € ['file>] 4111 MOARA E554F66R NIBASC 
uaaqu =tehlo1 EQU CMBASE +13 Del #00ce DS 
a40a@ steHL@2 EQU CMBASE)+14 Exit: E 9112 406C4 € £ON(1) 12 
a0oon steHLô3 EQU CHBASE)+15 Help: H C<cmd>] 9113 406C5 
2 00000 eHL@4 EQU CMBASE +16 Insert: [1] 1 9114 090C5 e Or 
eagna 5 EQU CHBASE)+17 Join: [ble]j [?1 J [n] 9115 4985 C2 C 
2000@ € EQU CMBAGE)+12 List: [ble]] L CnJIN] 0116 WG9C7 81 CONCZ) =HeDELE Mes # 24 
ponna EQU CHBASE)+19 Move: [ble]] M [file] 6117 660C3 BR COn(1) 11 
ogg 6 EQU CHBASE +29  Frint: [ble]] P EnJCN] 9113 GO8CA F CONC1) 15 
vaaus 3 EQU CMBASED+C1  Quit: 0 9113 090CR F4B60247 NIBASC ‘Ok to De 
 pooon EQU Replace: [ble]] [?) R/strl/str2[ 96003 F6024456 
200na EQU Searc [ble1]] (2) S/str[/] 0124 A94DB CÉ564756 NIBASC ‘ete? Y/° 
cuaaa 2 EQU Text: [I] T 000E3 F30295F2 
agneau 13 EQU Eschange File: X <file 9121 OUHER 1 CON(1) 
2 un : OUDEC E4AG NIBASC °N: 
3 AaQnG 42 EDIT A90F@ € CON(1) 15 
da34 augan 43 Insufficient Memory 
0035 dan ai Invalid Cmd + Yes/No/Quit 
0036 Gunaû 4f Invalid Pattern CONCE) 
4057 gun CON(£) CONF Message # 2° 
VASE aan CON(1) 
0029 hapuu 11 Louect message # C CON(L) 
6049 QNGUT GE Highest message # S55637F2 NIBASC 
dual OûnG4 U4FF E4FEF21S 
OU4Z auana + EDIT 0131 40107 57364702 NIBASC ‘uit T° 
@043 hngn4 O1 CONC2) 16 0610F F3 
9044 duups O1 CONC2) NULL Message # 16 32 @atii € CON(1) LE 
0945 Date 4 CON(1) 4 35 48112 
4Q46 QQu49 54443445 NIBASC ‘EDIT ‘ 112 + YNG 
geaii 62 5 @9112 CO 1 
d047 6OGIS © CONCI) 12 5 Ouil4 Al stebEYS Message # C6 
0048 4unl4 37 GO116 © CONC1) 2 
b@43 4BQI4 + Insufficient Memory 8 00117 95E415 NIBASC ‘YNQ" 
Page GE Page 0v4 
AREUH 45S. V2.4 AREUH ASS. V2.4 
gai EC CONC2) 46 ù139 LONC1) 12 
QUAIR 11 CO ë Message # 17 144 
l a141 àà . 
CONCI) 1% g1ac 2 
NIRBAGC 'Jnsuftic" Q143 dé B steVCHD Message # 27 
9144 ê il 
0056 0 NIRASC 'ient Mem' @145 @ D CONÇI) 13 
O14E UG10A4 34445454 NIBASC "CDEHIJLM" 
Q456 CONC1) € 3444C4D4 
NIBASC 'orv' 0147 253 NIBASC ‘PORSTX" 
CON) LS @413C 
148 00140 C CONtLY 12 
+ Javalid Cmd 0149 Quai 
CONÇE) 15 0154 DA141 + Copy: Cbl 
CON(S) =telCMD M sge # 18 Q151 QU141 2 CON(2) 34 
une CONCI) 14 0152 48143 C1 CON(O) LAQ Message # [E 
CCLTE CONC2) 
9665 LON(1) € 
NIBASC "Cmd” 









CONÇ1) 12 


+ Invalid Pattern 
CON(E) 11 
CONÇZ) =te [PAT 
CONCL) 
CON(2) 
CON(1) 
CONÇ2) 
CONCI) 


Message # 13 





UgasC 


4 OU + No 


Rüom for Pattern 





q GAUSC 22 CONC2) 34 
ûN LelCMP Me 1e # Je 
CONKIY 11 
CONCI) L1 
044 DANSE EAFHOUTS NIRASC Nr Room 





NIBASC 
CONt1) 
CON(2) BEA: 
FOND) 1 





md: 
CON) 
CONC2) = 
LONCI) 4 
NIPASC 


663 
9991 € 


Î 
SI 


Message # 21 


& 





2 QAR 
G405R 
uoasD Fe 
BbusF 5 


CAY6E65E 





NIBHEX FT 
CONCI) 5 








2 Cgien 
3 RUE 


ER 





+ Delete: 


s. ÉxTte 





NIBASC "C C” 
EONCL) 
CON(2) 





CONÇIY 1Ÿ 


[bLe3 










CONCI 
NIRASC 
CONC11 
CONCO) 
CONCIN L 







Message ? 
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Fage Vos 
AREUH ASS. (2.4 
WA19C AGA254 
$ CONC1) 





CONC1) 
CONC1) 
NIBASC 





GQES € 


+ Join: 






CONC2) 
£ON(1) 
NIBASC 








12 


+ Help: H [<cmd)] 
CON(2) 


37 


steHLO3 Message # 31 


14 
‘Help: H 
"Leema ] 
1ê 























e Print 









CGNC1) 
HIBASE 
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Q273 
9274 





@275 Q029B B5F3DS0C 
a0243 25F23747 

0276 002AB 2713F237 
402B3 47272385 

Q277 Q02BR ! 

d278 @Q2RC F2DS 

Q279 0Q2Cù C 











6 29706 
@e07 
902093 
90204 
9208 
AQ2E3 


F30502 
35F23747 
2785F205 






1 
à 
2 
747 


5C6 


£ 





win 


154245 


C 
£ 
A 
1A 
t 
€ 






Qn31 
hh310 
4 44312 
h@314 

i ü315 
4347 40316 
QUE 
HQE 











CnJEN] 
steHLÜR Message # 34 
List 
fe 


Message #4 36 








‘ 
8033) . 
Page 660 
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4516 4033 





64747 
627E6 





CI669ECE 
S6ES 
6C 
+ 
4337 4i 
9338 49373 D2 
0333 00378 6 
9344 62R5EGDS 
B5E4D5 
9341 € 
#3ac 
0343 USB FF 


+ Search: [ble]] 








CON(1) 11 
CONC1) 15 
NIBASC ‘[?] R/st° 


NIBASC ‘r1/str2[" 
CON(1) ! 


NIRASC ‘/]° 
CONCI) 12 





CON(2) =teHLli 
CONC1) 7 
NIBASC ‘Search: 





CONC1) 15 

CON(2) BB43 
CONCI) 11 

CONC1I) IL 

NIBASC "[?] S/st° 


NIBASC ‘rC/]" 
CONC1) 12 


ONC1) 11 
ON) 15 





NIBASC ‘Eschange‘ 


NIBASC ‘ File: K° 


CON(1) @ 
NIBASC 
CONC1) 13 





ON(2) RB44 
CONC1) 12 











M # 4 
CONCE) 16 
CON(2) BR44 Message # 44 
CONC1) 5 


CONCAH) 12 


Er JEN] 


CONC2Z) 20 

CONC2) BB45 
CON(1) 6 

NIBASC * [nJEN]" 


Message # 45 


CONCT) 12 


NIBHEX FF Table terminator 
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ARELH À eess SYMBOL TABLE +0 
BB4® 
RB43 SE] 0272 QCE7 WSCA 
ER44 
BR45 
FileNd ë 
=MSATEL] daugu Rel  4A3a 
MBASE DOI Abs AUAS - hAG UAA7 AA hQUI hBLE 
+ 0G15 OAIP 9417 OAI 4014 
+  MAD4 GGCS O2 027 QUI 
+ dodù 
NULL UAG1Q Abs MUNE - uÿ44 
<eXMEM Q0@11 Abs 0007 - GUSI 
=teCONF 90019 Abs MG15 - G127 
=teDELE 00018 Abe 4014 #16 
=teE0F 49017 Abs 6613 - 4143 
=teHL06 9001C Abs 6018 4152 
=teHL@1 90810 Abs 6013 a167 
=teHL@2 OAGIE Abs GO2Q - WI8c 
=teHL03 OMGIF Abs 4921 
=teHLü4 99020 Abs 0022 - 
=teHL05 GGQ21 Abe QAQ23 
=teHL06 69922 Abs 024 - 
steHLa7 ga QUES — 
zteHL0$ ga 426 - 
=teHL99 dou? WALZ - 
ztehLia GUU26 Abz AUOE 
=teHL11 90627 Abs 0029 - 
steHL1 6a36 - 296 
=teHL13 UQ1 - 43h4 
2te [CMD aag1c AGO - ABS 
ste ICME DAIA Ëbz balu uñzA 
<teIPAT GAÛ13 Abe dau ma7! 
stelEYs GGALA Ab: AUIE - GIE 
stePEOF u4Q16 Ab AG12 - O1! 
=tePLIN 60015 Abs OIL - ani] 
=teVCMD G4G1B Abs WAI7 - U143 
Source nsgl.as 


Object: obj/m:gl.a0 


Listing 
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0981 00600 
4002 90m 
9003 6ua04 
0604 Gvag 
9095 0600A 
000€ 00400 
9007 60006 
4008 90086 
0003 6a040 
0016 90009 
hg11 6paGc 
9u12 44644 
0413 294@4 
0014 044G4 
9015 00006 
0916 90003 
4v17 





3 44018 
s0ù 
ve 
96023 








ea 
3 9902C 








60928 

























4 
PHBAGE 340 
FMBASE +1 
29 
&6 
Cal 
14 QNt2 EL #1 
4 CONCHS 
NIBASC ‘FIND 
CONCt) 12 
+ Not Found 
CON 
C NENTD Message 4 2 
CON 5 
NIBASC Not Foun' 
NIBASC ‘d” 
CONC1) 12 
FF NIBHEX FF Table terminato 














nées SYMBOL TABLE see 





Errors #40 
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Filed 
=MSGTBLE 

MBASE 

NULL 
=eNFND 





Object 


Listing 
Date 


Errors 


Areuh Âsse 


sess CYHROL TABLE ee 











Re! 
@1 Abs 
91 Abs 


e7 ble gn11 






msge.4 


obj/msg. 





list/m 





Sat Aug 12 17:40:53 1984 


on 


mbler/Linker V2.4, Ce) P. [avi 


a 
æ 
4 
s 
2 
æ 
T 
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dooi d000û 


aa62 doûaû 


aunag 













eagaa 


évoba 
vugou 
agaaa 
paeñé 
nas 
j aAngA 
aad09 
ana 
auaon 
14 gogo 





5 ocean 


adaga 


ana 
anaan 


nada 











composition d 








& 


ITLE Editeur. des cmd <xdec.as? 


+ 


+ Varisbles temporaires 








tno L=SCRTCH)-L 

val (tmp )-5 

signe Ctmp-Ë 

sauve  EQU =STHT [6 q pendant recherche 





Ri 
TMTRA +24 





but EQu a pendant "expr” 





ésréssssesessesoenenseses se ssessesessessessssesessee see 


° chi 

+ 

+ But: sauter les blancs 

+ Entree: 

+ - Dl = ‘ chaîne 

+ - DCA) = nb de caractères 


IT conception à codage 





un module sép 





sgetch 





kiolô BE 





sorsrtssosssssse sense ones see esse sssneseeeeseseesesse 


+ lookah, gete 
+ 5 lire un caractère, et pas à uivant (getohr 











Page 003 
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V2.4 


9101 0005F 147 
9102 00942 D7 

0103 40044 1040 
0194 00043 147 





vif 


d0048 135 


G10B Q004E 


a107 GAÿ4E 


A148 GQOA4E 
A109 O8Q4E /EAF 
0110 90052 70DF 
a111 QQ5E 400 
a112 00059 


4113 905 
ë114 000 





q 





à115 00653 D2 
2116 AQ95B 108 





QOUSE 
000SE 
OGQSE 


d124 AQQSE G4A 


aac 
(a 


aus 





1 40067 


auu7] 
nRa71 7RE 
04475 
00479 


aan BA 
G4063 


CT 










AAA 


3 7DFA 
44 













AUDE A 
AAAEA 
QUUEA 
AUYEA 
DOUEA 141 
GED 7622 


Editeur. décomposition des cmd <xdec. 





DA) := longueu 












Di := caractère à lire 
. 
+ Y-a-t'il quelque chose dans la ligne de commande ? 
SUB =skip 
GOSUR  =lookah 
RTNC Cy = ! : rien trouvé 
. 
+ Il y 3 quelque chose. 
. 
C=ù A 
RO=C nblignes := 4 
. 
+ Mode HP-71 ou HP-UX ? 
+ 
C0 5 Si si, ça tient dans C(S) 
GOYES  declô4 Made HP-UX 


drones tero rene esess esse esters seseneesesesesenesse 
+ Mode HP-71 


sonsesseesssssesssssermenseesese 





sosseerenesvesreneseeressse 














‘ 
+ [lde [?3 [cmd] [param] 
, 
. 
OSUR 
GO Idebut non reconnu 
+ [ldébut [[.7] 1fin]] [?1 [cmd] [param] 
. 
. 
RI=A 1debut 
MOSUR  nblise ignes++ 
GOSUE shir 
GOSUB  =1908 ah 
Got 
LCCE) 
TA# 





GOYES  déco2 


virquie non reconnue 


la virgule 














VAL QUATU 





54 99979 
2055 hou 
AGE hunrg 
1457 vyu 








ua TE 


BhAA 





duaru 
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trssosserssrese 


° “dde 





une Jiane de commande 


citonnée 





ommande Cé tuellement nulle) 


ule, 4.ff 





! 
psz de commande) 





que Qi ci 7?" reconnu avant la commande, 
+ Attention: PCMD et LMD ne sont pas bie 


+ ortie, Pour 





ti 





Et botte shadue dunes appelle 
‘ etCMD pour stôocher DI et Did 
he. Lu D DE 


le: spip, getchr, lockah, 











ique 
@5/15: PU/IT canc 
23/16/18: PO/IT rebr 


dnsssresesssssese messes sesr ess sense ses ssecsesenesesesees 





la", bligatoire dan: HF 








=MOGE 
É ES F our tout à ë 
+ Positionne DéAi et Ol cour utilisation de getche et lot ah 












daual 
WIEQ UGGAl 
UISL GOBAL 








4153 00044 
don 
CET 
YAGAC 
pat 
AGUAC 
LAVE 
bopAC 
AYYAC 
LLAETS 
GOMAC 
DhAAC 
5 GOUAC 
AUGAC 
AGUAC 
auaAc 





ii 
AGDE 








dual 


uanee 





EBR2 













QUUAC 1B4UGA 
vayRz 142 
UVUER 1ROUUUO 
@6wPD 144 
460 a 

36404 

404 b 7631 
4G4CA 44 
4407 101 
dOGCA 70e 
UOOCE 

VUGCE 

QUE 

aeÿCE 111 
GuaD1 1B4GQuU 
AUDE 
DB 


144 


euaçR 





G640R 


lu , 
. 
| 
composition des cmd 32 Page 494 Editeur, décomposition des cmd <xdec.ss 
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7700 
531 
334400 








decg2@4 COSUR linenb 

Go decM54 fin non reconnu 
+ 
+ Lidebut [T.1 Ifin ] Lemd] [param] 
+ 
+ 


6 RÈ 






= fin 


ignes++ 





SUR 
dechE (OTO 





nero entente ne eee nsosensessesseeesseseesesteneneeses 
+ Made HP-Ux 


nés ss seen soso conan ess ssssesessseneesessasesee 





eci94 
+ 


+ [ldebut [[.] 1fin]] C?3 [emd] [param] 


. 


° 
+ ajout du 84/10/07 








+ ligne de départ de la recherche = courante 
D9=(5) =COUR 
A=DATO À 
U=(5) debut debut := COUR 
DATA=A À 

+ fin de l'ajout 

. 
&GS «pr 
GÔC dec249  Idebut non reconnu 
F1=A Idebut 
GOSUB nbli++ nblignes++ 

, 


+ sjout du 88/10/47 


+ ligne de départ de la recherche = debut 











A=RI 
D9-(5) debut debut := RI 
DATU=A À 

+ fin de l'ai 

+ 

+ 

, 
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0201 WYODB 774F 
Q202 @00DF 4€2 
0203 DO0E2 31C2 
4006 966 
G00E9 71 
QGOER 782F 
QQAEF 
DADEF 
O00EF 
QGGEF 
QOOEF 7701 










































a00r” 





06194 434 
06107 
6a107 
09197 
40197 
49147 
90194 
9910E 
6010E 
@Q10E 
GOIGE 
8 9Q1AE 
4010E 
Q10E 
6@10€ 
9019E 7EEE 
pg11 
46112 
9o11€ 

6 4@112 
0112 At 
OI1s 
@6115 7DGF 
ou113 421 
YWALIC 31F5 




















Editeur, décompasition des cmd 
GOSUB  =loskah 
decc9ûù 
B 
dec120 virgule non reconnue 
sgekchr 
° 
+ Cidebut [[.1] Ifin]] [7] [cmd] [param] 
2 : 
COSUR  # 
GONC d 3 
LO(4)  =eMSPAR Missing parameter 
LOTO erreur 
dec1i9 exp 
dece04 nombre non reconnu 
+ 
+ Lidebut [T.1] 1fin]] [?] [cmd] [param] 
° 
. 


dec130 R2=4 lfin 

GOSUR  nbli++ nblignes++ 
+ Attention ! le code continue 
, 


Dosoresenese ess ones reset ess esse ssesesesssseesesesesee 
+ Partie commune HP-71/HP-UX 
eneseresoseso nero sense seen sene nest seeesesenesee 


dec204 GOSUR skip 


[®3 Lcmd) fpsram] 


….…. 


C=h ‘ juer v à 


chr plignet+ 


query 





























2 4W19€ 
3 6G13E 


96173 21 
09175 





96192 
06133 


Où13E 
@919E 


5 001SE 


0019E 
0019E 
@919E 
691SE 
4919È 
0019E 
4919E 
4919E 
QQ19E 


6 6019E 







9019E 
001SE 
0019È 
9919E 
4019€ 
4919E 
@013E 
0013€ 
613€ 
0819E 


J4SE 


dû 





gai 


3 601AS SFOGOEG 
û 4èa 








Editeur, décompasition 








der 





Attention |! le co 


.….. 


oneses ones soso rsnse ess rent sescsesesessesseceesssssseseseee 













+ nombre 

+ 

+ But: lire un nombre 

+ Entree: 

*  - D1 = © chaîne 

+ - DA) = nb de car 

+ Sortie: 

G : nombre non reconnu 

. ACA) = nombre reconnu 


B(A), COCA) (D(A) et Otr 
lockah, 








DRANGE 


ip, getchr, 


PD/JT c 
PD/JT 
PD/JT < 


ss 





+ 
haut 
ä a FRE 
n'yacrie 


nbrâlé 
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0351 @01CE 
9 ç À x ion que Ê 
$ P 
+ Fin de commande C ë 
+ à 
ivars 
ä , n cest ercere multiplier pa 
8)) 
. 
“va 
+ Q1ES 
dec3 iste) AQIES C 
Qu1E7 4 LUA 
ivarq 


nagat 













A4154 
4n164 
wait 


av164 





1 GIP A 
OM1b4 


dals4 


46164 
Aÿ1t 4 
Gala 


: And 







palr4 
98154 789E 
QUES 7ABE 
BE SÂES 
0 966 









nosssshss resorts seen saste ses sssssssssessesessse 


omp 
PRET ENT TELE ET TEE TETE ETES TES ET TE IT EEE TETE TEST ETC EE ETES 


+ fin de 





decaua RTNCC Un seul point de retour: c'est beau 


torse sense nées eseseséesss esse ste esse 








+ Jinent 
, 
% lire un numéro de li qgne 
hatne 
nb de caractère 


bre reconnu 





lsokah, DRANGE, nombre (tombe deds) 








q 
dans un module sép 


prose rene evene esse esse enr ess etes stenseeeseeereoses 





linenb G 





LS 


LCA 


TA4 E 












1FE 03 
d81FA 
dB1FA 
dP1FA 
DRE 
&olFA 





78 QGIFA 










3 QUIFA 


GAIFA 


1 ANIFA 


O81FA 


à QUIFA 


UO1FA 
AùLFA 
QMlFA 
OGIFA 
bnlFA 
dotFA 
glFA 


Qalrs 


aie 
OùTIE 








2 @ 


nbrugà AzB 


RTNCC gs 


sonner s ones os nensss seems esse nsc sesessessesssceceses 











+ expr 
. 
. une expression à Îla syntase HP-UXx 
+ 
+ 
+ de che 
. 
. 
, 
+ 
sjout ä scne 





sosssossosmese sense esse messesesesénseesessse 








non r 


enfin 
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d501 9030 


V502 à030C 1800060 debut 




































































= #6 pour ‘+” ASA3 40313 142 A 
99002 AGE = #F pour ‘-" 0504 40316 E4 A ACA) := debut + 1 
44ù5 04225 3102 0505 00315 1B0900U =DERN 
406 00729 JE 506 AO31F 146 À CCD := dernière 
C4 sortir si ni +", ni ‘-” 0507 00322 SB6 À 
IRAAgAR expri 5 40325 BA ex1035 
d409 00236 ! an D a PE at 0327 SEUVUU =SRCLIN 
Ê l'opérateur ausin 452 exl44 match found 
7 ñQ330 
241 a8330 DA ex1055 A 
dd 00332 E4 4 ACAD =! 
4A 40334 1Bhpoaù début 
4€ expr 20328 146 à C(A) := début 
55 AU3GE BE À 
9 463411 Bu notfnd 
515 06349 SE0000 GOSUEL  =SRCLIN 
403493 4Cû GQC ex1944 match found 
Q034C 
Q034C 330000  notfnd LC(4) d)"=eNFND) "Not Found” 
00352 5009 erreur G0T0 err aie aie aie 
ut va bien 
, 
exor 20 + Ma found 
tout va bien + A(A) = ligne trou 
lvarg . 
181 #x1449 RI=A Sauvegarde de A(A) 
expr ÊE4000 =ENDPOS Achever le buffer {arghhh) 
111 Restauration de AA) 
ÛkK, ca à marché... 
AFD | on en profite pour nettoyer 
nor seen ere sense rennes sente see esse séessressesesesens 1B04G4U sauve RA(A) 
145 A 
0535 QAGEF 108 
analyser un # it d'expression à la syntaxe 4535 44372 164 ë RICA) 
2 à 146 A 
193 
has 154 D0=06+ 6 Di 
= mière ligne de la recherche AUS7E LAË CeDATE A 
| 35 pic 
no connu 164 DA=-D4+ 5 DCA) 
A(AY = nombre reconnu 146 C=DATU A 
A 
FE 4 restaurer 5 niv 
vapu 058 c 
RTNC( n 4 











teur, décomposition des cmd 





sonéessossso esse secs sesesasssoreséeneesesencetesecosesesee 


enblies 
+ But: incrémenter RÔ 


+ Entree: 
+ - f4 


return courante 





FAT conception 8 codage 





dérssssrosesnss esse seems esse messe teneenestésenenre ce 


nblis+ 


















dr] F= auver 5 niveaux 
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1B9maU a se aui 

1£ Eure 

144 ‘ 

154 £ FIfA y 

113 

144 # 











SE dun GYSUEL = mniter 3 chaine de recherche 
41e 0 res 
Jour hr masser le délimiteus (26/14/15 
a FDt7-U: = à Lt ua due Safe 
ON ee. rh) Battéée 
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Page 13 Editeur. décomposition des cmd <xdec. ac Page 015 Editeur, décomposition des cmd ‘vec. 
AREUH ASS. V2.4 Routines de support APEUR y2.4 Routines de support 
9571 @AGAI 0671 OWAUE A2 # 
0572 0034! snerrossens ones oser ns enr serrée seen este ene sense OE72 GAAQE SF sEnce sont sine Erreur 
0573 OU3AI + GETFIL 4673 Ou419 134 sauvegarde te 
9574 OY3AI # 0674 064417 . 
9575 40341 + But: lire un nom de fichier, chercher ce fichier ou le 4675 AG413 + Le nom du fichier 3 été reconnu et ns 
0576 OY3A! + créer selon les flags. 6 96413 + 
4577 493A1 + Entree: 6677 60413 79EB COSUR =skip 
A578 AAGAI + SOUS chaine 9672 04417 + 
9579 00341 $ - DA) = nb de caractères 9679 06417 + Reconnaître le "+° seulement si /M ou #, 
a520 0A3AI * - sPELET = @ : cas C/H 0550 44417 + si SDELET = 1 
9521 AAA * sDELET = 1 : cas D ou x 9681 49417 + alors 
9582 - sXCHG = 1 & &2 064417 + si SACHB = 1 
a583 . sACHG = 0 3 9683 40417 . alors plus := true 
9584 + Sortie 0584 09417 + sinon plus := "+" reconnu ? true 
0585 + Cy = 1 : erreur 5 09417 # fin si 
9586 + CC3-4) = numéro d'erreur 6 00417 + fin si 
0537 . - Cy = 4 : pas d'erreur 7 66417 . 
a583 + EXTFIL = adresse du header du fichier 0624 00417 869 257-4 
9583 . 3CREAT = 1 : fichier cree 0689 OG41A F1 GOYES 
4590 + Abime: A-U, RO-R3, DO, D1. S56-S9, STMTxx, FUNCxx 6599 OG41C E7A 2ST= 
0591 + Appelle: ADHEAD. FILXQ$. FINDF+, CRÈTF+ 6691 9041F A1 GOYES 
9592 + Niveaux: À CCRETF+) 6632 00421 + 
0593 à + Algorithme: 0693 WA421 + Dn sait que XC 
0594 08 + création d'une chaine sur a M.5. contenant le nom 0534 96421 + l'instruction " 
4535 . (la chaîne s'arrete sur ‘+4, 5" ou EQL; 4695 06421 e 
4596 + si DÉLET = 1 0636 64421 GOSUB =1loot ah 
8597 . slors 6697 44425 À LCASC + 
9598 + si XCHG = 1 9695 40429 966 TA#C E caractère suivant = +" 
à599 , alors plus := tr 0699 4842C D@ GOYES GF156 non 
ô dO3Aï é sinon plus := (ce lu =s ‘st) Q70ÿ VG42E . 
LPREST . fin si a701 + "+" reconnu 
QUSAI + fist 4792 . 
243A1 + FILXO$ 4743 SER sgetchr passer le "+" 
UA3Al . FINOF + 9794 0 7ACB skip 
on3A . i il existe 6705 GU436 854 sPLUS plus :# true 
BA QUGAL . alor 0706 44439 . 
0647 UWTAI * i DELET=I et not plu 4707 4h43 + Sauver les meubles !I1 (D1 et OCA); 
6O3A + alors erreur (File Éxists) 0708 64433 $ 
HOTAI + Pénr Si 0709 44439 137 GF154% CDIEX 
A03Al + inon 9719 h443C 1F04009 D1=(5) =STMTRY 
wg3Al # i DÉLET=@ 9711 04443 145 DATI=C À STMTRA+YO := Di 
QUSAI + slors erreur (File Not Found) @712 04446 174 Di=Di+ 5 
e83aAi + inon CRETF+ 9713 00443 DB C=D A 
493Ai + Fiat st 6714 G448 145 DATI=C À STMTRO+QS := CiCA) 
AGSAI # fin si 9715 9644E 
6 QAGAI + vérifier le type est TEXT 4716 OAA44E * 
QQ2A1 . adresse dans EXTFIL @717 MQA44E + D9 = * haut de la M.5 
3 VOA “Hi 0718 9044€ + R1 = ° bas de la M.S. 
803A1 + 3 ge 0719 O644E + SsDELET = 1 si comman si “M” 
CURLS . 88/11/11: PD/JT modification pour la commande "X° 0724 QUAAE + sPLUS = 1 si commande ‘D' et ‘+ 
Editeur, décomposition des cmd ‘:dec.as xdec.as 
Routines de support va.4 
pazAl nonenosssssnstess esse ess esse ttes eseseresssssesssese Q721 OG44E + STMTIRAGA-ù 
AA 4722 OG44E «+ STMTR@(G- 
69 flag D (par opposition à C/M) 23 Q644€ + 
=sxCHG  EQU 19 Û D'ou x ? Capre ‘+ reconnu) DG4AE 
=sCREAT ED il fichier créé par nos soins 5 AQAAE . 
AQ44E + Construire MS. header et chercher le fichier 
sPLUS EQU =:XCHG flag plus utilisé apres son test DA4AE + 
@G44E 156 
=RETFIL ST =:CREAT fichier non encore créé 9 94451 195 Di = ls M$ 
Du=(5) <EXTFIL par défaut, EXTFIL := à hu4s4 1800000 FAVMEMS 
C=4 A 146 CsDATA A 
DATA=T A 07 GC À a 
3 AB4EU # de 
1EU40u = AVMEMS 44463 + 
=DA À FIN] + Di = Eop of M5. 
YOSRA B=C 4 BCA) := AVMEMS MA? « R1 = bottom of MS 
aasec Dÿ-Qin+ 5 Dü2(5)  =AVMÈME 46 $ + DCA) = AVMEMS 
CeDATA À + Sû=i 
Da=t O4 := début de ls M5 + 
RIsi pour ADHEAD tout à l'heure Fouad GOSRVL =AOHEAD DI = SE 3 header 
GF9i4 look ah O74Z EFeavot 
GFloG EOL 743 dan d'arrès 
2 ' ensemble espace, ‘37, "41 744 
4745 330000 ivfspe LC(4)  =2FSPEL 
2? n'abime que C(WP) A746 @047A 02 RTNSC 
byte in set 4747 àG47C 
L Où47C GF160 
403E3 e Mettre le caractère dans la MS. (pointée par D4) a047C + 
002E3 + LUE + Spécificateur valide 
093E3 743 GOSUR r passer le caractère RGA47L . file name ou À 
Qa3 e Ce qui suit est t fortement inspiré de STKCHR (#18505) » AQA47C . Fif no device 
(TE na:D6- aQ47C + dif IA 
COEX ûn47c . d # 
Be 4 AA A47C . Tif 
GOYES GF094  Memerr ÉAA7C + La vérification du s ificateur sera faite par FINDF+ 
CDAEX aa47t + Maintenant, ii faut chercher le fichier. 
DATU=A EE vo47C + AW) = le nom 
SONC GF@iu  B.E.T aa47C + D(S) et DR) = device specifier 
dO3FE On47C . 
VOGFR 33000û GFO94 LC(4) =eMEM 470 
@u4o1 Q2 RTNSC Beeerseep ! 2 4047C . 
3 04403 i PB47C auvegarce de A(W) et D(S)-D(R) 
40403 03 rtnce RTNCC aa47C + da STHIRO(10-26) et STMTRU(28- 
49405 + 5 Qu47C * 
4a405 + Fin de la chaine. est nulle, alors sortir 6 QA47C IRNOOQA FA+=STMTRO 
añ445 + sans avoir rien reconnu 7 0433 1507 
4495 + AadS$7 16F 
49405 136 GF189 CDGEX CCA) := haut de la HS. A APR 
ME7A U44gs 11 A=R AA) := bss de 13 MS A448D 512 Û = BéS) + DB 
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ASS. V2.4 torse SYMROL TABLE ve 





































=ADHEAD Estrn Ukn -  n74û 
=AVHEMS Extrn Ukn 4634 4734 
=CHNTXT Extrn Ukn - 0856 
er de fichier =CONVUC Extrn Ukn - 4271 
+ =COUR Extrn Ukn - 9179 6303 0453 
=FINDF + =CRETF+ Extrn Ukn - 0818 
GF308 Fichier n'existe pas =DERN Extrn Ukn - 0314 2466 9505 
, =DRANGE Extrn Ukn - 4343 0348 
+ Le fichier ex =ENDPOS Extrn Ukn - 0529 
+ =EXTFIL Extrn Ukn - 0634 0849 
+ D1 = header du fichier =FILXQ$ Extrn Ukn - 0742 
. =FINDF+ Exten Ukn - 0776 
GF200 pour “4 FileNd 40559 Rel Q8BS 
le f =GETFIL 40341 Rel 0627 
si D s exister =GETSRC Extrn Ukn - 0488 
pas pl GFa1à 43C8 Rel - 0653 
GF rallonge CFO Rel - 0656 
GF198 Rel - 0643 0647 
feuist LC(CA4) "File Existe" GF158 Rel - 0689 4691 0693 
RTNSC GF16Q Rel 4743 
fnfnd LCA) ef D “File Not Found" GF2au Rei 
RTHSC G Rel 9784 
Re sr Or 
+ Rel - 4767 
Le f n° Re = 
. Rel 
A6à  7ST-ù imande cu ‘M° Ukn 
GOYES si : "File Not Fa Ukn 
ë Uka - 
+ Le fichier n'eviste pas, mais il faut le créer pour la à Un 
+ commande ‘D Ukn a 
+ Ukn 
e808 16+10+=STHTRA Ukn 
4 Ukn 
Ukn - ; 
nm DCW) :2 comme apres FILKOS Ukn - n710 0766 UXG3 AS27 BEN 
Unkun Ukn 4012 - OLEL 019% 4502 G514 
À aûasA 6 - 
37+4 hesder + EOF mart Aunal 
=MEMCEL AUenS 
AAAAC 
nolan 
ck (MEMCKL) ua147 
. #lvE ESS 
+ ÉCA) = 
D= 
Fe SOU b 














n ie 


ition des cmd ‘xdec.as 
+... 


Editeur, décom 
V2.4 ++se SYMBOL TA 





9374 ÿ414 dd 









nom du fichier 





à 4514 
3 441! 
g211 


O4ÛF 




















































a4a7 
Ô146 U206 244 6266 Q302 Gus 0354 0410 
9465 4duà A651 9793 
du sid 
ivarg 0427 
6114 4149 9291 9239 4 4298 0341 0346 
57 3 6454 9E42 0626 
1Fuñgua HR linent d151 0156 
145 ë Inbg14 
. Intucg 
+ Jéritier q # Fichier tt bien TEKT nombre 
se nblir+ 
f ulù 
=COkT 
(1 eFTYPE 
e Pestaure " Lt ae pes AUaye 
, 00049 Ab: 
1F 2STHRE GGUAA Abe 
# anna Fei 9261 4768 0197 4397 0453 677 
+ 
YOGUA Ab: 
iatun Lan 0533 
Uakun Un 
r 3m € AAA Re 
Emp Unkun UEn 
ENT val Unkun Uka 0429 
j 96434 Rel 15 - 
Estrn lin - 45éi 
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Page 021 Editeur, décomposition des cmd txdec. a: 
AREUH ASS. V2.4 ses SYMBOL TABLE see 


source : “de 





sk 
Obiect cbi/kdec.30 


Listing : list/xdec.al 





Date Cat Aug 12 1 
Errors un 





Areuh Assembler/Linker 


4, (c) P. David & J. Taïillandier 1936 Paris, France 
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Page du! Editeur, baucle principale <xbcl.as Page ud3 Editeur. boucle principale <xbel.as> 
AREUH A5S AREUH ASS. V2.4 
aoni nage TITLE Editeur, boucle principale <xbcl.as” 0191 40230 8000000 GOVLNG =EXPEXC Cy = @ en sortie 
042 aaaaa 9102 00937 
das aaoan e 0103 04037 Suns ssoseneenn soon semer sense sesenesceeeeseseesense 
den4 Aapan + Variables utilisées par les fonctions et par XEDIT @104 40037 * XEDITe. TEDITe 
daAs vunno + Tout le reste de TRFMBF est donc disponible d1a5 00037 . 
dus aanan . a106 80097 + But: éditeur de texte 
ue07 2099ù =MODE71 EQU QQ+=TRFMEF la si mode = HP-71 0107 00037 + Entree 
0993 0agan QUERY EQU Q1+=TRFHRF lg si mode = "?" pour S/R 4148 20037 , le nom du fichier 
gas anpaa =FCNTMHP EQU WD+=TRFMEF 58 quartets pour Île ratch 219 00437 + - une chaîne de commande optionnelle 
vale n0n0a 4110 00037 + Abime: tout 
dail aan + a111 00037 + Appelle: 777 
aël2 acaaa + Variables utilisées par XEDIT seulement. @112 04437 + Niveaux: 7 niveaux sant autorisés pour les statements 
A13 900 4113 00997 + Historique: 
o RFMHEF 0114 00837 + 88/05/13: PD/JT conception 8 codage 
vè REMEF 4115 04097 + 59/06/17: PD/IT retrait des paramètres largeur/hauteur 
ogoaa 6116 96927 soon rss seems ess none names se eesesotoseesesssenee 
veuñR a117 QGn37 
dune ne de ligne cot a118 00037 aûñan REL(S) =TEDITd 
na de la dernière ligne A119 QNOSC PA706 REL(S) =TEDITp 
pteur dans la cmd a120 d4941 55 =TEDITe STs1 9 Mode HP-71 := true 
20+=TRFMBF longueur de la cmd Q1Z1 4044 6010 Cara *EDUSA 
35+2TRFMRF état du flag 1 à l'entr A122 Gù04S 
36+=TRFMBF fichier resd-only d123 QAg48 QU0ua REL(S) =XEDITd 
aAraD GAnbe REL(S) =KEDITe 
+ 90052 340 =XEDITe ST<û à Mode HP-71 := false 
+ Tout le reste (à savoir 23 quarte est disponible 6 00965 1FO@vUy XEDUBG D1-C5) = TREMEF 
+ pour des variables temporaires dans XEDIT Uu4sC 34C3000 LC(S) 60 5Q quartet 
. S 40063 2F09000 =HIFOUT TRFMBF rempli avec des U 
=XEDTMP EQU 37+=TRFMBF 23q : variables temporaires AUAEA 
Qag6A 260 Ô mode HP-71 
, AUAED à XEDO19 non : on saute 
+ En particulier, 13 fonction GENRFLCS et la commande KR 2 4006F SA } 
+ utili quartets pour les coefficients "a" et una72 1F000ûu =MODE71 
patnn + "bi lors du remols Voir la documentation 00079 1554 P MODE7I := 1 
avung ‘ 4o07D XEDA1A 
aa . zone peut étre utilisé toute routine u8a70 . 
agaua e n'utilisant pas REPLIN où REFLFIL a0a7D + Analyse du fichier 
ana + 62070 . 
Ja RICH)-1A tna7D 8E0000 GOSURL =FILEL Evalue la spécification 
+ Analyse de la chaine de commande 
+ 
799F Expression suivante 
5 AUGE7 443 tEOL 
ÉFagnnu 
137 
iFa0uaa 
1 4GG9B 145 AVMEME := bas de la MS 
+ G909E C2 CEA) := début de 13 chaîne 
Editeur, boucle principale ‘-bcl.as Page 604 Editeur, boucle principale ‘xbcl.as 
2.4 AREUH ASS, V2.4 
+ Constantes alobal 9151 60049 CE 
+ 4aaa2 CE 
=FLIMSK EQU anoIu F = 1 dans les flags UGOA4 1E0400 
=NCMOEU EQU nombres de commandes (6-13) YUyAA 145 PCMD := ° premier caractère 
3044 AQGAD AFT 
pupas sonores roses ss esse esssssesesseesseseseeessue 0156 49084 D6 
* poparg 4157 bAORE COCA) := lonqueur en octets 
+ 9158 UA08S 1000 
+ But : dépiler un nombre de la MS. et le vérifier 4153 64423 145 LCMD := longueur en octets 
e Entree 0164 GUaBC + 
. - Di = * top of MS d161 GHURC + Recherche du fichier, et copie éventuelle 
e Cutie ë $ 
+ AC = CCR) = nombre dépilé (4 © nb = 2657 xE0050 
. 4, ECS). BAD, COCA), DA» S1=1 1 Copie éventuelle 
+ RNDAHX GORE ,T=1 ê Création éventuelle 
+ j4: 4 (RHDAHX A166 MAC? SEUNOU GOSUBL  =FILES 
+ Historique . 
+ 5/13: FO/IT conception 4 codage + Le fichier est Érouvé. On 4 son adresse dans CCA) 
snsossonsonense esse ste see see esse senses esse 9169 . 
6174 à £E0000 GOSUBL  =CHKURT Modifiable ? 
sauge L Q171 AOÛCE 1FU006û D1=(5) =RDONLY 
i LE, 4 0172 44606 1554 DATI=C S RDONLY := 4 (urite) 1..3 (read-only) 
1 à 9173 6040 
Q474 Gun ivarg 4174 600n9 1E4004 D1=(4) =FILAUR Adresse de l'en-tete 
0675 G400F D 4 0175 64GDF 145 DATI=C À FILADR := adresse de l'en-tete 
0676 Q0011 AE E 4176 OAOE2 
0077 GGQI4 SAC Ç A 9177 4Q0E2 125 D1=C D1 := file header 
Qu72 90017 QG RINYES 9176 QAUES 
0479 00419 2040004  ivarg GOVLNE = [VAERF 9174 40QE5 20004 GOSUBL  =CHKTAT Est-ce un fichier TEXT ? 
à gun GQQER 540 GONC XED459 Ou 
banc nono nn nn nnmneeessnsens ere tone setssereeesesesse QAQEE 
ê + netecp OGQEE EDOU00Q  bserr HOVLNR  =BSERR 
# h4QF5 
° But valuer la prochaine espressior UÜGFE xED484 
+ Entr 4uoFs + 
. 04 chaîne tobenisée (sur tCMMA ci HEOL) QUAFs + inibuf initialise le tableau de pointeurs dans le texte 
+ Sortie: gûûFs + Cette routine commence par désallouer le buffer dont le 
+ fy 2 1 si tEOL reconnu QQQF SE + numéro ect dans BUFID. Cela ne nous gène pas car nous 
° = het ssprescion 15, fAtW) = top 16 nibss Wars + avons fait un WIFOUT sur taute: les variables au début. 
+ la: registres fon scratch CITE . 
+ ALACr., EXPE4T MaoFs ZE4uuu SOSUBL  =inibuf 
. BÉRPESE AUAFE. 
+ j OBÈFR GC €=0 À 
+ T'conceptron % MGdFO ER [ste À 
dénssossssersse messes esse esesseessseseestesesesesesee : GOUFF 1FA0AAN D1=(53 =COUR courante :2 1 
46 GOLUE 145 DATI=C À 
ë ÉTRCE) 
L aaLat $. 
ha ai sFauaui 2RGLACT maiua + Mettre à 0 le flag 1 et sauvegarder son ancien état. 
étui AneD Ami HÉAL. rasé 1 an101 + 
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ves 


AREUH ASS. 


ACO1 
a2@2 
9243 
4204 
geas 
0266 
Acer 
0208 
6209 

210 
0211 
@212 
4213 
4214 
@215 
9216 
@217 
4218 
4219 
9220 


ce 


Q222 
9223 
0224 
9225 
ec 

297 


9227 





36 dal 


4 WO156 


po1as 
D016F 
#Q113 
bÿ116 
29113 
20110 
#9121 
M4i01 
ño12 

2122 
da12€ 
49132 
Q@132 
04136 
09136 
90136 
94136 
90136 
94136 
20136 
84136 
00136 
06136 
90136 
94136 
94136 
94136 
48136 


uÿ 
uë 


2 GG 


0U153b 
00156 
66136 
36 
UY156 





35 00130 
y baldé 


8 04 





4AIAA 


wt147 
ñi4a 
autac 

daiac 
gaIac 
Aai4c 
64153 
SË 
04156 
99150 











1EGAGU 
1524 
AG 
360 
QEUE. 
1518 


302 
9€95 
1E0000 
1558 


CLEC 


IEñuuga 














1 


1804nau 


142 


fditeur. 


Fagnga 





boucle principale ‘xhcl.as 


Di=(4) =FLORER 


A=DATI F 

R=A F BC) := ancienne valeur du flag 1 
LCEL)  '=FLIMSK 

A=A&C F AG) := flage 4-3 sans le 1 
DATI-4 F 

LC(H)  =FLIMSK 

C=C8B P CC@Y := flag 1 seulement 

D1=(4) =FLAGI 

DATI=C PF 

6010 =BOUCLE 


dnsnso soso eos soso esse or s emo sssseeseso eee seneves ee 
+ vieulr 
. 
But: affiche la ligne en cours ou "[Eof]" tant que la 
touche CENDLINE ] est appuyée. 
Entree: 
- COUR = 
- DERN = 
Sortie: 


. 
° 

. 

. numéro de la ligne courante 
+ 

+ 

+ Abime: A-D, Rû 
+ 

. 

+ 

+ 

+ 

+ 


numéro de l4 derniere liqne 





3. D4. O1, STMTRO. AVMEMS. TMFS 
Appelle: OBCOLL, Numlil. AVSEDS. seek. dsplin. CRLFND, 
j si R 













toriqu 
88/11/13: FU/JIT conception & codage 


dosononssits serons e sement seen nessesesssesesesese 


vieulr 
. 


e "numere 


liqnes" au "[Eof]" 7 


, 
Uu=(5) DEFN 
A=DATA À ACAY := dernière 
(2) =COUR 
C=DATO A LT 
CA & 
GÔVES  nulëw4 attendre le relschement de (ENDLINE] 
. 
+ Afficher le numéro de ligne suivi d'un ":" 
. 
GOSBVL =OBCOLL CCA) := GUTRS 
pi=c O1 :2 7 AVMFMS 
DA=(5) COUR 
A=GATE 8 ACA) := courante 


Page 007 
AREUH ASS. Vé.4 


9341 99104 
9342 0G1C6 
0303 06106 
9344 99109 

9395 90103 

O30f, 4103 

4307 691C3 

& 04103 

393 069103 264 
@6iCC 60 
641CE 

991CE 

ÿ OOICE 

@@1CE 

5 QDICE 746F 
94102 

69102 

& 901D2 

9 96102 

90102 8E0880 
20108 854 
991DE G4EF 
9810F 

901DF 31FF 
6913 962 
@01ER 1D 
QO1EZ 

@O1E3 

QUIES 

à DOIEZ 

HOIES 1E0GuUA 
QG1EF DE 

3 401F1 144 
Q41F4 164 
A91F7 137 
OGIFA 144 
601FD 164 















































Ch 113 

4 94203 144 
164 

119 

{ 144 


QU2QF £E0400 
345 44215 546 

5 04218 

ge218 

$ 49218 

3 Q4c12 

20213 








Éditeur, boucie prin 
. 
GOSUEL 
GONC 
+ 
° 
* 
+ ÉENDLINE] pour 
. 
?ST=8 
GOYES 
+ 
°C 
+ est appuyée. 
. 
GOSUB 
. 


+ Afficher un prompt 


BCLI69 GOSUBL 








=prompt 
ST=1 19 
GOTO ECLUY06 
BCL266 mt) =] commande nulle © 
7% B 
GOYES  emNULL 
+ 
+ Une commande 4 été f ie message 
+ listant les comman 
. 
=FUNCRG 
C=D À 
DATO=C À FUNCRO + 4 := Dihs 
Dé=Dd+ € 
COTE 
DATE=C À + 5: O1 
D@=Dg+ 5 
£=Rg 
DATH=C A FUNCRY + 10 := RU 
D@=Du+ 5 
C=R1 
DATH=C A FUNCRO + 15 := Ri 
GOSUBL =poscmd 
GONC invemd "Invalid Cmd” 
+. 
+ La commande à été reconnue et acce 
+ Ce qui suit est un "hack" basé sur ë 
+ moins de 16 commandes dans l'é 
+ sur un seul quartet 





Commande nulle. $i on vient d'affiche 
c'est le cas spécial de ilts 


. Afficher Ya ligne tant que CENULINE)] 





£ommande non nulle 


er notre prompt. 
qui appuie sur 
à l'af 








avoir la lign ichage 


14 Le n'est pss le cas 


BCLI8O donc affichage du prompt 


vieuln 





















9283 
9290 
9231 


6293 
w304 





94187 
QAIR7 





ante7 
Val 
an Le? 
an 1B7 
tn187 
ealr7 
ValR7 
96187 
90187 


6 GGIED 


au 1BD 
g81ca 
guica 
uglcu 





Scaaea 


848 


las? 





UBL =Num:Di place ACA) en FUNCRà 














LOASC 
DAT R 
DisDix EE ae À 
A=ù E 
A=A-1 B ACÇADM:= 4#FF 
DATI=A R °01 := #FF 
GOSBVL = 
la ligne courante ét l'afficher 
D4=(5)  =COUR 
LeDATA À courante 
GOSUBL = longueur LIF 
GOSUEL 
GOSBUL = 
LOTO nul 449 
nulgaa LEA)  (sid)"( 
GOSUR -dspmsg 
+ 
+ Attend ls relachement de toutes les touches 
nutqaë GOSEVL  =EYON? 
GONC nulaan 
RTN 
shonssesenere een eee sense nes esene ses ones 
+ BOUCLE 
+ 















ë: FO/AT 
AL/A: FO/IT 


rresoseseonsers sos ssre ss esse ses str esse eses sense 


siguillage on le message “"teVCHD" 


. la boucle principale de l'éditeur 

. 2 : 

+ CMD = painteur sur le premier caractère de la ligne 
# CNP E. léguaun dé-ésbts ONE de tuant 

. orique: 

+ : PD/JT conception adage 

, PO/JT séparation "«eddec" et “prompt” 

+ 

+ 

+ 


cmNULL GOLONG =emNULL Rallenge 





=BOUCLE ST=û 14 
BCLOGA 


+ Décomposition de la commande 
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0351 40218 
4352 £0D0 


363 











1890040 
3 146 
5 07 


3 AFévOYe 
E4n 
Fan 
og 
55ù 





paa 
304 


33vo0û 
6Dcè 


scaage 
ECaaan 

















Editeur, boucle principale <xbcl.3s? 
. 
P={ 8 P := numéro de là commande 
DA=(5) =FUNCRA 
C=DATO À 
4 
5 
& 
Ç À 
De=D@+ 5 
C=DATO 4 
RÈ=( â 
Dè 5 
À 
. 
+ Exeéution des co $ 
+ 
suitch CF) 
D 
E 
EmMOVE M 
=cmPRNT P 
scmEXIT Q 
omREFL R 
=cmSRCH S 
=cmTEXT T 
REL(3) ecmxCHG x 
. 
+ On ne sait jamais. L'information vient ici d'un 
+ qui peut ètre tra tentiellement u 
IT vaut rtement stable 
e de ris 
RELC3) invemd 
RELX3) invemd 


invemd LC(4) 
GOTO 

+ 
+ Quelques ra 
cmREPL GOLONG 
cmaCHG LOLONG 
























nges 
=emREPL 
scmaCHG 
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Fage 03 


AREUH ASS. Vo.4 

















=cmM 


emHELP GOLONES 


+ sederr, d 








ve 





-4Y = numéro 














=cmeÜPY 


sosenestsnsson sens s esse nes esse esse ressssssenecessesee 


stficher une erreur et repartir à 


l'appelant 











le principale sxhél.ast 






=cmDEL 
=cmJOIN 
=cmHEL 


F 


la boucle terreur) 





d'erreur 
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ARELH ASS. 


=AUMÈME 
=AVSEDS 





=BSERR 
=EUFAOR 
=BUFID 
BCLOgu 
RCLIOù 
BCLC@@ 
=CHATAT 
=CHKWRT 
=COUR 
=CRLFND 
SDERN 
=ÉGLXCK 
=EXPEXC 
=FCNTMF 
=FILADR 
=FILEI 
=FILES 
=FLIMSH 


£FLAGI 
sFLAGI 














ya 


Editeur, boucle principale <xbel.as> 
4 ses SVMBOL TABLE see 


Ukn 
Ukn 
Rel 
Un 
Ukn 
Ukn 


Extrn 
Extrn 
00 IRD 
Extrn 
Unkun 
Uakun 
AàlCO Rel 
a@1D2 Rel 
A91DF Rel 
Extrn Ukn 
Estrn Ukn 
Unkun Ukn 
Extrn Ukn 
Unkwn Ukn 
Extra Ukn 
Extra Un 
Unkun Ukn 
Unkwn Ukn 
Extrn LU 
Extr 
Q00QZ 








0297 - 


Qa15 - 
2014 

a298 - 
4320 - 
a324 - 


DIE - 


0019 - 


o4ng - 
aa17 - 








è260 
921 
9182 





CEE 


4322 
2310 
4343 
9173 
4174 


0239 6249 6264 





40993 
CHU 


n174 
0133 
4166 
CRUE] 
9210 
CRUE 
6331 


V295 


0254 























































































6455 
Urkun Ukn 6021 g44ù 
Extra Ukn 
= Extrn Ukn s LEE 
=MODE71 Unkun Ukn 6607 
=NCHDED OAÔD Abs as 
=NumiD1 Extra Ukn 
=08COLL Estrn Ukn 
Unkun Ukn 0020 - 
=FOPLS Extrn Ibn 
QUERY Unkun likn 048 : 
DONLY Unbun Un 443 - @171 
=RNDAHX Estra Ukn na7] 
SCRTCH Estrn Ukr A024 QN47 
: Exten kn : 
Estrn Ubr 
Estren bn 
OQQ4i Rel ALU 
Extrn Li ulla 
Unkun Un 
Uakun Ur 
Uobun in 
Extra ibn Aoa7 UGAZ QUOI VALA VALS GUI7 QUIZ GAI4 CA 
+ oi 2 GUZS 0074 u126 
£+ 28 +bcl.as Page Wi2 Editeur, boucle principale ‘xbcl.ss 
AREUH . VE.4 .…… CL TABLE ose 
Eten Ukn 4125 
Extra Mic 
YUQE? nice 
Extrn u1:4 
sossssssreesesesesssnesesesesesseessse Link un 
*EDAA #aygss 9121 
xEDH14 40470 All 
par s'il y a une erre XEDHE9 ayuBe n145 
sement ce car ét xEDU4M naurs - his 
bserr AUOEE 
cm OFY Eten CET 
EXben A4UT 
Ectrn U O275 GE 
Extra | - 45 
Extrn 4275 
Evten L 4aû4 
Extrn LU 4277 
Esten U 
Estra ll # 
Extrn es 
Estrn = 
Estrn U 
Extrn 
Extra l ü400 
Unkun ga24 aan 
Unbun { hgaa 
à G4ni - 2/1 
ans - 
ans - 
6464 
Rel ü44: 
CsenMEM, notre erreur à nous Re 4096 
Rel 4399 - 
Rel  4dûû - 
Un £ 
Rel 4444 - 
=eMEM Un È 
=exMEM Un 
id Uto 0271 0394 0462 
sinibuf Un 4141 
invemd Fel 0394 - 6545 4391 0392 
ivarq kel 4073 “972 0474 
meme DOCDE Fel 06473 - 0436 444 
nulë OQIAI Rel GI71 - M242 
nul346 QUIAB Rel 77 - UCE3 0278 
nctesp gUYCh Rel 4947 -  G144 
spase dl Estro lien ü344 
=prompt Eten Ukn u324 
poparg GUY Ra  UO71 
Steel Ecten Ubn - 
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AREUH ASS. V?.4 66e SYMROL TABLE +00 


=teE0F Extrn Ukn Qe71 
=teICHD Extrn Ukn 3 
vieuln 00136 Rel 4233 - 
= Extra Ukn ë 
GO2AE Rel 4434 





Source “bcl.as 


Object : abi/xhcl.30 


Listing list/vhel.al 
Date : Sat Aug 12 17:41:01 1959 
Errors : 060 


Areuh Assembler/Linker V2.4, (c) P. David & J. Taillandier 1986 Paris, France 
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dont Qeaan 
donc nana 
4903 ea 
neg4 var 
AQYS AAGOË 
pañs vanna 
7 Aanon 
danz qua 
CLEAN) 
ga1ù one 
QUIL anna 
Dà12 AAAnA 
voue 















gaaau 
5 ge0an 
ennge 
güaua 


3 
toi 








MATE dan 


4934 aa 





nana 
PTT 





Ganua 
agua 


auu 





CIE) 
LEUT) 
nan 
ausuu 








EP 







aspu 


dan 





——  JPC 68 Page 40 


Editeur, chaînes générique: cegen.x 


TITLE générig 





-3s 





+ Le mod 





+ stocker le buffer bien 
+ En revanche, 
+ impres 





noommer de mémoire (sauf pour 








la consommation de registres est 
ionnante, 





+ Définitions pour les tokens compilés 
? à character (valeur cables) 
i end of line 

5 any cha 





character clas: 





a 


leur taille 








[ chsracte 
se end of char 
not in char 











: interval in cha 


remplacement 











of line 
of line 
FA characte 


Éditeur, 








forme 
«  quartets Con pourrait le 








juartets L & 
e - il y à donc un nombre ms 1 
. utiliser, 11 faut une pile. 
®: 5 uartets. 
+ on pls : pile en début de buffer, Le qui laiice 
# toujours 14 closures 
+ 
EU ide24 14 closures + CD quartet 





dresser ses ss nn sense esse sers setesseseetereesestesees 


° COMPUX 





compiler une chsine qénériaue 





els chat compiler 


= lonqueur en cctet 





FR 





d erreur 





début du buffer (sur Les 


donnees ) 





. Da. 
getbuf. addc 
. FINUA, I/0CO0N, WF 
+ Mivesur: 4 faetbuf) 


+ Detsil 


Appelle: que, loobsh, getchr, 


ttsb, MDVEU2 








° créer le buffer 

+ tant que non fin de chaine 

« faire 

. mër ut du pattern précédent 
4 à 





ii caractére lo 


+ hi os & sr ncrmal (caractere auivant) 














ajouter 





Fsge 


AREUH 


A110 
ü111 
a11è 
è115 
9114 
4115 
9116 
Q117 
e118 
9114 
a12a 
O1UI 


0140 
ÿ14 
142 


G145 








5 ABLE 





eus 





VI.4 


aan 
gaaga 
angan 
anna 
CPLL 
neaua 
ganña 


5 vacaa 
3 aëaqû 


peace 
agaña 
aaa0a 7824 
geund4 400 
COUPS 
auGa7 
eaan7 
QCAQ7 
AAAU7 
va207 
Gn4n7 

ya 
aura PQ 
AGQNG 194 
uauût 

ENTTETE 

uénae 

AaGac 

Qeaut 

name 

PTT 

Aabac EEUyau 
GnGl 404 








à AGUIE SFOuQAY 


paie CS 
GUUIE 750 
unaul EZ 
Aupts E60 
ch ES 
6sû 
dupcB 42 
hñ@zt CBA 
hau2a ps 
3F0 
AT 
uon37 AG 
ans Ga 


aa 











7CA4 
uéasa 7384 
Guaa 489 





Editeur, chaines génériques :xgen.as? 
analyser ce qui suit et créer tableau 

+ ".* décaler le pattern précédent 

+ insérer la closure avant 

. sinon : ajouter normal (caractère lu) 

+ fin selon 

+ fin tant que 

+ Historique: 









+ 88/06/06: FD/JT conception à codage 
+ 38/10/29: PD/JT suppression du buffer en cas d'erreur 
Mono seterene sente none nee ss entéreseséen esse esesess se 














getbuf 
erreur 
+ 
+ BCAD = tsille du buffer 
+ DCA) = taille de Va chaine 
+ DI = "chaine 
+ D6 ° buffer 


+ RACZ-0) = bufid 





+ RA(7-3) = 7 buffer 
. 
tsû 4 
NE marque = 
+ 
+ DCA) = nb de caractères restant dans 13 chaine 
+ BA) taille du butfer 
+ Di = chaine 
+ Dù buffer 
+ KI ts 
+ 





cux-10 COSUBL 





Fin de chaine 








CON(&) 

REL (3) 

CONC2) 

REL(9D  cuANY 

CON(C2)  xBOL 

RELC3) cuBol 

CONC2) XEOL 
Cr cuEot 

CON(2) xBCCL 

REL(3) 

CON(E) 

REL(2) 





NIBHEX Wù 


LOSUB marque marque lasttoken 
GOSUE  sddchr 
RTNC if error 











Fage 


CHF 
AREUH 45S. V2.4 










ou 


YüWAF ACA 





AÿHEC 
GUAE A 
DAAEA 






11ê 
#Ogi2 2F8094û 
QuñEA COE 

3 00960 


AouE 
GGAED 
GU9ED 114 
uaujo ABS 








f 0973 


61% 
&191 
n192 
6133 
“144 





0147 
ALT 
#13 
non 





CUP) 

CYR 

AnQ73 9% 
Gaa7E 

pau7s SEGgAû 
aés/R 411 
Wau7E 7AË4 
va622 7174 




















ua 400 
Auÿs FETE 
QQUED 

8020 112 
non 

g4uil 7764 
AGE ZE1UA 
ngayA PAT 
Au 

CLILE 

AUULT 

uuua7 

GHDEA EIRE 
pousse 


Editeur, chaines génériques <xgen.as 


GOT cur-10 
eterseoss tonnes tero seen ere esse eeenenenesentesssr 
+ Sortie de 13 compilation 


shoes ose ess censé sssessssesssesesssessessssessonssses 











System GOTO system 
norcoM LOTO nor dom 
cmpena 
. 
+ Marqueur de fin 
. 
x 
nor oc 
LCL) END 
UATO=C P 
+ 
+ Réduire la taille du buffer 
+ 
L:RA CCR) = buffer id 
SOSBVL =1/0CON 
CONC System buffer not found 
+ 


+ Maintenant, il faut renvoyer les parametre: du buffer 


RCA) := buffer id 





pas d 
+ D1 = début du buffer (sur les donnees) (après 
+ BOX) = buffer 10 


creur 


1/0CON) 








FINCC 
CuË GCOSUBL  =getc 

AOC JnvPat "A" et Fin de liqne 

GOSUB marque 

COGUR sddche 

FTNC if error 

GOTA cuk-19 et retour à la boucle 
EnvPat GOTO invpat 
cutNY COUR marque 

Li ANYS 

gs * 

SAC Horacm 

LCCI) ANT 

DATG:C FF 

Qu-Qüe I 


SOTG cu»-14 et retour à la boucle 

















Page 


09° 


AREUH ASS. 


4241 
@202 
9203 
204 
6205 
4296 
4207 
4268 
4249 
0210 
4211 
9212 
4213 
9214 
9215 
4216 
4217 
4218 
9219 
0229 























5 wA12] 


QAQAE 
4001 
a5oBs 
aaaRe 
GU0EA 
QUUBE 


QQOC1 7 





gant 
690D4 


990D7 3 


a48DA 
QQUDE 
Gael 
QGQES 
Q40ES 
Q00E3 
QaQE3 
Q4QED 
gaarz 
OAaFE 
DUOFA 
Q44FD 


LU 


80194 


8 Qn19% 


@410D 
vn114 
00113 
94116 
@RILA 
av11D 


4 Eau 


6G143 
ui4 





palaA 





Fditeur, 


111 cuBOL 


euBL1ù 


£E24 Noroom 


7EFS euEOL 
SEñaau 

44ï 

3142 

REA 

76F3 

404 

670F 


32104 cuEL19 


AùE 











chaines 


a=RI 
COSUE 
TA=Q 

GOYES 


LCL) 
B=B-€ 
60 
LCL) 
DATA=C 
Dn2DQ+ 
S0TG 


GOT 


GOSUR 
COSURL 
G0C 
LCASC 
A=C 
COSUR 
RINC 
GOTO 
LC(3) 
B=B-F 
GÔC 
LCL) 
'ATU= 








génériques ‘gen. as 
marque 
A Début de liqne 
cuBLi4 oui 
B 
sddchr "7" normal 
if error 
cux-14 et retour à 13 boucle 
BOL °°" générique 
4 
Noroom 
BOL 
F 
Î 
cux-19 et retour à la boucle 








marque 
=160 

euËL14 fin de ligne 
4: 

8 

sddchr al 






3 l3 boucle 


ique 








our à ls boucle 


"et fin de ligne 
€S) += LCL 
eutLin 


NEC! 


Page vu7 


AREUH ASS. 


h301 MO1EZ 
4242 GAÏEE 
4ÿ1F4 
@01F7 
4u1Fe 







)1 
pare 
QA2DE 
68210 


vo213 
94216 


4316 
9317 
9318 
9313 
0320 
932 
0222 06230 
60233 
40236 





0356 40278 


V2.4 


SEbaua 
2Ehuan 
4FE 
3105 
966 









































q 





4162 
OAIEE 


à DÉJE 





9293 


4297 
0238 





4300 





GUIEE 
aa! 


au] 


001E4 
MAIRE 
WULED 
gniCi 
ggicz 
ba! 


) MAICA 


aw1CD 
aa1D! 
44101 
à@1D4 
4108 
@810 
@a1te 
QU1E4 
@A1E 4 
UO1ES 














CDI 














CDVEx 
LE 
CDIE* 
RI=C 








5070 











Env 





"]" manquant 

MEGUL 

B 

cuCL30 

SES “Ai 

B 

eut LE 

=getch 














AB) ract 
Ga := s le tables 
ACAY := sr 
tab Learacté 
Dÿ :2< tab [ 
et un tour pus! 
(CCLS 3-1 
là et retour à la 
invpat 








AATAR 
AURA 
AAA 


Jan AOUAR 








ÉFavège 


conan 








Éditeur, chaines génériques ‘gen.as 
cuil£g COSUBL =<getchr passer le 
=getchr 
jnvbet TE "et fin de ligne 
xESC 
B 
cuCLe2 
sgétchr 
invPat E. gne 
B C(B) 
ä 
A A(B) := louer 
B range 
F2 := range 
> upper 
tab [louer] 
tab [0] : C(B} := range 
B compteur dans AB 
1 
cutL£4 Ê 
Ÿ 
B 
cuCLé4 
COCA) := © tab [4] 
cuCL5@ 
nokocm GOTO noroom 
cuCLOs * 
noRoom 
last token 
invPat 
:# courant; 0U := last 
rant 
F st tober 
BOL 
: mes 
invpat "ee" 
ADLEX 
BRZEX 
Di=A 
RIs4 
Di=Di+ 1 
CODEX 
=) 
il 
Éditeur, chaines 
+ ) 
+ A) 
+ = 
. = 
. = 
. 





Dé=D0+ 1 


BOTO cux-1à 





invpat GOSUR  =ENDPOS 
LC(4) tsid)"teteIPAT) 
RTNSC 


dosssssesonsne sense cesse ess rene nsésssssséesssresssssse 


+ COMP71 












+ t: compiler une chaine générique 
e Entrée 

+ 01 = "MS. sur la 3 

+ ACA) = longueur en 

+ 

+ erreu 

. éro d'erreur pour 
+ d'erreur 

. C1 = début du buffsr (sur | ) 
. RUCC-0) = BCK) = buffer ID 

+ Abime: A-0, DA. Rè 









+ Appelle: getbuf, addch FINDA, I/0 
+ Niveaur: 4 (getbuf) 

+ Cetail 

. 

. 

. on fin de chaîne 
+ 

+ lire le caractère 

° si caractère lu = \? 
e alors 

. selon état 
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SES 


























_normal 


48 

LES 

rèces 
srsctère lu 
caractere lu 
sractère lu) 
tesrsi lu 





d'après COMFUX 


sr en cas d'érreur 


sosstesssssssnesssessspene seen 
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AREUH ASS. V2.4 
CONC2) SREFT 
àa344 nCù FEL(S) c7REPT 
an347 où NIBHEX Gù 
va343 7AAÏ GOSUR addchr 
AëAD RTNC if error 
SQTG c/l1-1ù 









5?n3  GOSIR 
RTNC 
LC(H) 





GOT 
:7BLIA ADUEX 
LCD) 











sctère lu) 





€ 








à 
état 5= 0 

c7110 

ANYS 
ACAN = at buffer 

À CEA) := début motit (après pile) 
ACAD = position courante 

A 

c/RLIO en début de bufter 

E 

sddehi "normal 
si erreur 

71-1M 


générique 







































































etreut 
+ 
. ë Hosbns 
+ G010 e71-lu 
+ NoRoem GOTO croit 
ÿ + e7E0L EL =laobat 
ee . FELIQ fin de ligne 
. z Lu 
v ñ= ë 
; ! = addchr  $" narmal 
Ê £ ÉTrEUr 
| 
F 
| 
i 
| 
- Editeur, chaines génériques :-gen.sse 
ia chaine 
c/ELIG 
i F9 E 
AUIFE 
| n de chaine 
2 /REFT LCLOSS 34 CANYS ) 
F5 = sarsctère | * 
ractère normal t Hak cn 
LECI)  CLO 
DATY=C 
V=s}ast COPIE TE EL [) 1 
ua Le) NY 
gu4ic DATO=C F 
oaac Lé=D6e ! 
Lange GOTO c71-14 
30900 system LC(4) =eSYSER 
Me : RINS 
esssstossers esse esseséosenessrsessesseesee soso 
+ getbuf 
+ 
e But: sllouer on buffer de taille masimum pour la chaîne 4 
at ® ompi ler 
+ Entrée: 
* AVHEM, ét AVMEME positionné 
+ Sortie 
+ D n'est pas modifié 
L . DA ACA) en entrés 
+. - L4 buffer Csprés la pile) 
+ FUÇI-W) buffid 
t U + RGt7-3) = début du buffer (partie donnees) 
si RCA) = taille du buffer 
se D # A15-6), B-D, Du, Ro 
à IOFSCR, 1/9ALL 
see ess Vas + Niveaue: 3 CI/OALL) 
+ Detail: le buffer #st alloué au maximum 
+ mémoire disponible, STKSIZ quartets és pour 
+ ctocher ls pile. La taille renvoyée 6t le pointeur 
. Dh tiennent compte de la pile. En revanche, le pointeur 
êr tr Éei te L'aÉ L + dans RO ect le vrai début du buffer 
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+ Hictoriqu 
so  E/06/h 


oserosseses 





USA QUACF BF gettuf A 
dû Gui32 BFu A 








F 


tossressee 


DT conception & codage 


hosostosossbereesosesnseseneseonse 





&z= 
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9601 00435 RF@ ASt u 4761 WAAEC + Niveaux: 0 
9602 00438 BFQ ASL u 4702 GG4EC , torique 
0603 6043B BF@ ASL u 9703 G94EC * /96/45: PD/JST conception 4 codage 
0604 OQGA4GE 133 ADIEX 4704 G44AEC Mono soc nsc sereresessesses 
9605 00441 108 RA=A RG := sauvegarde de À et D] 9795 GG4EC 
9606 00444 . 706 OG4EC 178 marque CDGEX 
0607 O0444 + Trouver un id scratch disponible @797 QG4EF 103 RI=C 
0648 @0444 + 4792 094F2 136 COSEX 
0609 00444 8F00000 GOSBVL =IOFSCR A, C(A), D1. 1 niveau 9709 444F5 41 RTN 
0619 0044B 4BD GOC system No available buffer 4714 094F7 
0611 @044E . 6711 44477 anosssrssd ess dessertes sacs esse sonne sise ses esse 6005 0 
9612 GQ44E + CCX) = buffer id 9712 094F7 
0613 0944€ . 9713 6G4F7 
@614 0944 D5 B=C A BCA) := buffer id 9714 604F7 oute un caractère au buffer, c'est à dire le torer 
0615 09450 1F00064 D1=(5) =AVMEME 9715 Q04F7 ? suivi du caractère 
0616 09457 143 A=DATI À 6716 96477 + 
9617 00454 1CQ DI=D1-  (=AVMEME)-C=AVMEHS) 9717 004F7 + = caractère à é 
0618 99450 147 C:DATI À 9718 094F7 + = place restante dans le 
00460 EA AzA-C À ACAY := MEM en quartet: 9719 00477 + = buffe 
90462 D2 C=Q à 0G4F7 . 
3194 EC(2) (2LEÉEWAY)+7 + o À erreur 
EA A=A-C A ACA) := place restante après LEEUWAY . (3-0) rror number 
497 GOC errmem , :ë 
34FFFOû LC(S)  4FFF 4495 nibs pour Île puffer , 
£BA ?Ac=C A ° 
4a GOYE getbin + al 
944793 DA A=C À CCAY := 4995 nibe + Historique: 
40478 + BCA) = id du buffer + 88/06/05: PD/JT concegtion & codage 
« ACA) = taille de F nono non serons ses ne sers rene nes seesereressesese 
getb16 LC(S5)  STKSIZ 
?A<C À addchr LC(S) CHARS si sattern 
GOYES  errmem B=B-€  » 
C=4 A C 
A 
3F40040 = 1/04 
515 errmem 
. 
4 + D1 = past buffer header 
0633 @4445 + B(4) = bufsize 4754 00512 
0644 00495 + C{B-4) = header (C(1-3) = buffer id) 9746 @à514 
JAAL AAA . 9741 40514 
A642 44495 133 AUIEX 94515 do Room f ° 
0643 Du-A Dg := buffer erreu 
0644 W 
W Messe sonne ressens senc ee sses soso sseseessessese 
W A(7-2 buffer, A(2-0) = @a + gettab 
A COX) = buffid . 
A=bst x A(7-3) = © buffer, 4(2-0) = bu d l'adresse du caractère A(B dans le tar'ess 
au4Aï ARDEX ae 
Q@AAC Di=A G1 restauré 4759 
génériques ‘+gen.as Editeu gen. à 
4 + 
“ # e tatiesu 
h + 
Wu + s DD tab [ 
W ACAY + - ÊK#) = ancienne se tab [@1) 
à + AC4-DY 
À JA) «= ‘ 
A + 
7 pour le header + FD 
8A44C7 A oronsoreosressnse Munster sense nesssse 
AGACE ° 
uuaca + Di ét AC) ne sant par modifié gettan À 
+ Où buffer 8 
+ ROÇC-4) = buffic h 
+ RA(7-3) 
+ DCA) = 
+ A 
À CCA) := taille du buffer 
À ACAY := taille : CCA) 
A BtA) := longueur de la € 
A BAY := taille du buffer Dosseret sommes seems ess ses sensssessuesse 
+ POSADR 
LE(S) LI + 
B=B-t A BCAD := taille (- Ua pile) +R chercher une chaine générique dans 
ADAEX + Entree 
AzA+C â + Da = chaine à chercher 
PA=A DU := 7 après la pile + - A(A) = longueur de la chain 
. + - RO(7-0) = caractéri f. COMPUX/71) 
+ taille restante dans le buffer #2 RAA S Gps 
. : 14 chaine . rtie: 
LH . + match found 
QDAET . . ‘ occurrence de 
QR4EC + , ongueur de | Ce 
AQAES . . match not found au erre 
> QGAEZ + . RA(12-8), R1., R2, D, Di 
QO4E2 43 RINES + 
QG4E4 . 
d4E4 330900 £ 
AQAEA 02 + doit être 
GQ4EC + fichiers, 
QQ4EC x 
ae4Et + marque + 
AG4EC x #* 
QQ4EC + . 
QG4EC + 4 
Qa4Ec + , 
QA4EC + O8 = 7 buffer + e de GE 
QA4EC + 50 F 7-8) n 
g@4Ec + - Rl= last toten * 
OG4EC + Abime: R1 # 
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17 Editeur, chaines génériques 
AREUH AS 


6 NEA 


xgen.as 


































ASAL UAS34 + 88/06/26: FD/JIT conception & codage (du début du reste) 
0534 . 187/42: PD/JT débogage et ajout de recherche multiple 

+ S/1@/a7: PD/JT dé 398 
. /1A/A7: FO/JT retrsit du compte dans RICA) pour amatch 
+ S8/10/08: PO/JT débogage du cas 
. 41/09: PN/JIT renvoie msintena lonqueur en actets 
u 16/16: FD/JT séparation de 
» à PO/IT super on du point d'entrée POSID 





véssssesesssss ses ess seen ses snerssssesveseesseséessesese 


++ tuffe 

donnees 

îine en octets 

À dans Di 

r de la chaîne 


vrai début 


:= vrai début 








t du pattern 
ation de A(A) 





:5 "vrai début 














Page @19 Editeur, chaine 


AREUH ASS. V2.4 


agël 205ED + 

A902 GOSED + D1= find 
0303 905ED + R2(9-5) = 
6904 QASED . 


4925 @ASED 114 C=Rè 
4996 @5FO 8F#0DAS 
2307 Qa5F7 


GOSRVI 


ee. 








GES Fita 
+ CCA) =  déb 
. 
pas3û 
a914 ho6AQ EA 
à915 A6BA2 81C 
° 
GaE A7 + Dn = 
Qa6a7 CA) = 
QAEA7 e 
an6a7 Q2 RTNSC 
4860 
3 ancQt . 


20603 
5 69681 
an6a9 119 
a@6QC 


























s génériques <xgen.as) 


e l'occurrence dans la chaîne objet 


© début de l'occurence 


#CSRCS 


es 1 oeeuerenee dons a han ele 
ut de l'occurrence 


DO := début de l'occurrence 
pour Ja division par 2 

ACÇA) := i 
CCA) := 2 





ÉCAD := 


ns |3 chaîne objet 
occurrence trouvée (en octets) 


match Found 


début pattern 

































































































43 6 
13 O96OF 816 à 
iner à929 90612 S16 $ 
3 60615 516 $ 
À QAG1E S16 SRC 
4 à DCAY := nb de caractères 2 @061B 134 DA=C DU := début patte 
‘ ‘ 3 AQGIE 
À . QGSIE 160 Î 
' . le premier stactère est normal, on rentre dans une E AB) := premer caractère du motif 
BUETY 5 Mobile révéstehé vour:autbar La G'anté mc NIMES Be 
+ ‘amstoh", et en particulier sa récursivité. + 
457 . + pide 
à El . Fr ér Caractère à cherche 
48 2CSRCS CHAN += patterr L DEAD = 7 caracte dans 14 chaine à chercher 
A1 Us ï + DA =  patern "apri le premier caractère 
i DA F A(GY = type du premier pattern + 
h 
saéciale RtnC( no match 
+ Gi le ün ne teste qu'une 0) 
4 +5 : 
| ; - + £ 
| 5 à posciu 
54 WE Ceir Bôl 
| 
| 
| 
eur, chaines génériques ‘+gen.35 Fage 029 Editeur, chaines génériques <xgen.as 
AREUH ASS. 4 
p à COIEX 
Di 
poshol bou isle pour 1 AAE W LEL 5 
AûE 42 Wu 
Foschr GOT pos Qu 4s W 
+ w 
+ Tant wis, il faut ÿ aller, On s signé, c'est k 
Age si F = Di et DA) 
{ + smateh 
+ t de boucle posecË mitéh Found 
. 52 patberne FTCAI rai dét 
. ) = nb de caractère sns la cha hercher restauration de D1 et DA 
+ + Î € sractère à chercher À 
+ W CER 5 
pocih FR! W 
rÉ bn HOSEEEA Wu 
Ft û 
AT 
5) := deuxième caractère 
GOSEVL 
ë Esprit 
CÉUCE QA6EL CE “A := ° début de l'occurrence 
ESC 90683 637F 0 
‘ 3979 . 
Le 4354 + Portion d spéciale pour ne tester qu'une seule 
£ £ CEST + fois le " de début de ligne 
sauvegarde de D et O1 4152 . 
ü VE smatct NAS 114 shol CRI CCA) = vrai début 
! cute mateh found 434 133 AULEX 
agus 131 Di=A 
taurati de D é NAS, da LA *A# A 
fist À À GOYES  Rtne 
SE ul h € ni 
F n GusQus 1 passer le BOL 
a W 
CE u CODEX 
SE W £ Di=t 
pi=6 JE BFS SE W CSL 5 
Gus Al BFC CSL (l 
fieDl+ © GGEA4 BF2 est k 
En Ë 496 MAEA7 BFA CSL y 
GONE os: 4997 & ESL u 
Rtati RTNC no match GER £=b A 
43 F 
au vi past d 1aun f amatch 
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= 


Fage 
AREUH ASS. V2.4 


1901 
1902 
1005 
1904 
1995 
1806 
1047 
1408 
1993 
1814 
1811 
1012 
1013 
1014 
1915 
1016 
1017 
1918 
1919 
1020 
1901 






6 Q0EBF 


oct 


VERG 
UQGR3 
966ee 
O0EBB 
496BF 
Q06BF 
QO6RF 
a66BF 
Q06BF 
OÛERF 
2968F 
Q06RF 
G06BF 
006BF 
@06BF 
dO6RF 
Q06BF 
G06BF 
906BF 
QUERF 
OQERF 
G9ERF 
QOGEF 
Q0ERF 
Q06BF 


446 
03 


615F 





Editeur, chaines génériques ‘xgen.as 
GOC Pos2û 
Rtnce  RINCC no match 


Fos2@ GOT pas @ 


Shore seosooeeas pese e es ess nero see ne seems sous e 


























# amatch 

. 

+ But: reconnaitre une chaine de caractères 

+ Entree: 

+. - 09 = © motif courant 

+ - D1 = * caractère courant. D(A) = nb de car. restant 
+ Sortie: 

. - Cy = 4 : match not found 

+ - Cy = 1 : match Found 

+ _- DO inchangé 

+ - Di et DCA) actualisés si besoin 

+ Abime: A-D, R9(12-2). D@. D1 

+ Appelle: omatch, nxtpat 

+ Niveaux: 2 

+ Algorithme: 

. tant que pas arrivé à la fin du pattern 

. ci closure 

. alors 

+ chercher la dernière possibilité (avec omatchi 
+ revenir en srri ‘à ce que 

+ “smatch Crest TRUE" 

+ si trouvé alor 

+ alors return TRUE 

+ sinon veturn FALSE 

+ fin si 

° sinon si omatch = FALSE alors return FALSE 

, fin si 

. 

. j 

. : PD/JT conception # codage 

. : FO/IJT 3 des cloeures 

, /19/07: PO/IT re t du compte dans RICA) pour 
. /19/14: PD/JT bug GENLENC"AB" "AB" ) corrigée 
Messe eos ne esse s esse ssessessssesesse 



































1942 VGREF 118 Initialisation de " courant” 
1043 @n 816 CSRÇC3 
1044 QO6C5 816 
1945 O96CE 816 
1946 O0FCE DA À AA) := ° début de la pile 
1947 OQECD 816 CSRCS 
1848 00609 616 
1043 @G46D3 816 
1450 G06D6 816 
Ps Editeur, chaines génériques -gen.as 
.4 
1051 46604 £ 
1452 4u6DC A 
1953 WAEDE & 
1è64 OOEEI 
1055 OURE4 8 
1056 UOLE7 
1057 WAREA 
RA(12-%) := courant 
DFA 1524 imarec A=DATA 

1964 GAEFD 445 LCCI) END 
1965 QQ7uh GA DE F 

GOYES ur atch Found 

LCCIY EL 

Az F 
GOYES am cleiu 





Z hw71 


au7ûD 
80711 









73 40715 E 





8471 
0671 


ñ bU7]( 


$ 4071 






ÿ AU7ot 


7 06722 


Ga71C 


Au738 





90733 


9 00733 


06725 
00733 
40737 


3 00737 


207 5E 





5 @073E 
5 44741 


40742 


5 40746 





a974û 
GU74A 












7F51 


6D5A 
421 
ic 
E7 
CB 
8B4 


FE 




















B  cmat 
return no match possib 
nétpst Dû := motif sui 
smart ee 
+ Closure trouvée, Les ennuis commencent 
smaclo Da=0ñs CLOS passer la closur 
C=0 A 
B=t 4 Le pu initiale pour clasure 
clalu GOSURL 
50 301104 on 3 fini la closure 
COEUR omatct 
50 ac1014 tant qu'on trouve 
. 
+ On est arrive au masimum. Faut revenir en arrière sur D1 
+ while U:=R 
e da 
+ if smatch (reste) return TRUE 
+ 
acl108 € nxtpat est bien positionné 
aci158 GO10 call sppel r rsif. 








aciret GOC 
Di=D1- 


D:D+1 A 


eturn retour amatch = TRUE 








Page 


Cr 


AREUH AS. 


1191 
1102 
1193 
1104 
1195 
1106 
1107 
1196 
1199 
1116 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1115 
1119 
1126 
1121 


1e2 


1125 





90744 
GG74A 
G474A 
074€ 
9974€ 
9074€ 
9074E 
GA74E 
40751 
00754 
00757 
40757 
4@7SA 
6@750 
90760 
90763 
80765 
96768 
907ER 
QQ76E 
96771 
90774 
40777 
9à773 
4@77C 
60770 
oa77C 
44770 
a977( 

94770 
40770 


2 0477C 


aa77C 
9077 

00751 
04724 
00727 





> 09787 
3 0078A 

































va793 
98792 
24736 
8 00739 
3 QU7SR 


48758 


@979E 
Gë7Al 
Q7A3 
AQ7A3 
QU7AG 
40749 
40749 


& 64749 


49744 
00743 
00749 
44749 
ua7A4 
aa749 
a9744 
AO7AC 
@a7AC 
46783 
AGTPE, 





G07RA 
AG7BE 
2 AU7BE 
? A97C1 
4a7C3 


a na7p2 


94706 
6azDy 
aa7n4 
@7DR 
GQ70E 
Q07E1 
AQ7ES 
UQ7E 3 


V2.4 


6306 


ACA 
558 
B44 


118 
816 
816 
816 
DA 

816 
616 
816 
ê16 
816 
842 
74 

137 


1C4 
147 
134 


1C4 
147 
05 


104 


147 


gFacuen 
195 
7400 
6QSF 








Éditeur, chaînes génériques ‘xgen.as” 


+ on est arrivé au bout sans trouver, alors 
. 


GOTO return et on a Cy = 4 


. 


+ Appels et retours récursifs... 






. 
return 4=û S sauvegarde de la carry 
GONC reta1® 
A=A4#1 © 
ret410 C=RO 
CSRC CSRC3 
CSRC 
CSRC 
Az=C A ACA) := 7 début 
CSRC CSRCS 
CSRC 
CSRC 
CSRC 
CSRC CC) := © courant 
?A=C k 
GOYES  ret3u 
COIEX 
+ D1:= courant : CC) := ancienne valeur de DI 
+ 
+ Correction du 68/14/14 : lorsqu'on à trouvé un 
+ match, il ne faut surtout pas restaurer Di, D etc 
+ mais au contraire les préserver car ce t eur qu 
+ donneront la longueur du match. 
. 
TA=Q ä retour sans avoir trouvé 
GOYES  retÿ2à 
Di=D1- 14 dépilage sans restauration 
Di=D1- 10 


e COCA) = ancienne valeur de Di (celle qu'il faut renvoyer, 


GONC ret959 B.E.T 





+ 
+ Fin de la correction du 88/10/14 
ret020 Di=Qi- 5 De 
C=DATI À 
Da=C 
5 B 
À 
A 
üi=DI- 5 û 


Éditeur, chaines génériques <xgen.as” 








À 
À 
5 p1 
A 
. 
+ Ce label un ajout du 68/10/14, faisant pendant 


+ à ce qui se trouve au dessus de ret004 

















rett5e 
, 
+ CCA) = valeur de D1 à 
+ D1 = nouvesu pointeur z réajusté 
+ 
CDIEX CCAN courant réactualisé 
GOSEVL =CSLC8 2-8) := pointeur de 
R=C tauration du ñ e 
GOSUR  ret9ù itionne 13 € 
GOTO sciret retour de l'appel "récursi® 
ret09ù TAzu 2 
RTNYES Cy = 1 
RTN Êv = à 
call LES = is | SEup 
C(A) = 
4 È 
CDEX À D 
DATI=C À 
Di=Di+ 5 
CDEX A 
CBEX À B 
DATI=C À 
Di=Di+ 5 
CREX A 
€D@EX A Dè 
DATI=C A 
Dis & 
COSE À 
CDIEX C{A) := 7 courant 
GOSBVL =CSLC8 
Faz=C 
GOT amar ec 





JPC 68 Page 45 — 






























































Page 025 Editeur. chaînes génériques (xgen.as? Page 027 
AREUH ASS. V2.4 AREUH ASS. V2.4 
1201 00804 1301 00596 
1202 AQSUA CETTE EE TILL ESS SIT S SIL IITIZLSILLLSILTS LILI LI ET LEE EE LL EEELELELLESS 1302 00896 
203 QU5AA + omatch 1303 40896 
1204 QARAA . 1394 00896 
1205 00804 e But: chercher le motif courant dans la chaîne 1305 00596 
206 00874 + Entree: 1306 00896 1524 
1207 Gu3aA +  - DA = motif courant 1907 0089A 94€ 
1208 OncQA «  - D = ® caractère courant. D(A) = nb de car. restant 1306 9089D 70 
1209 4304 + Sortie: 1303 4089F 162 
1210 04304 +. - Cy = 9 : match not found 1318 00242 01 
1211 A@20A * - Cy = L : match found 1311 00844 
1212 08394 + - DQ inchangé 1312 00844 7810 
1213 06544 + - Dl et D(A) actuslisés si besoin 1313 04848 300 
1214 AUSAA + Abime: A(A), CCW) 1314 00848 100 
1215 6D604 + Appelle: lookah. rhoteg. TBLJMC, gettab 1315 QORAE 100 
1216 OARQA + Niveaux: 1 1316 008B1 101 
1217 QA304 + Detail: cf. “Saftuare tools în Pascal" 1317 00884 101 
1218 Q084A + Historique: 1318 00887 000 
1213 99504 «88/06/26: PU/JT conception 8 codage 1319 008BA 609 
1220 A0SaA . 8/10/07: PD/JT retrait du compte dans RICA) pour amatch 1324 008BD 190 
1221 00SQA ohosesssssspessosntessses esse ss esesesesorecsenesessesese 321 098C0 DO 
1222 QA80A 1322 9à8C2 1529 
1223 4A80A 1564 omatch CEDATE S C(S) := motif 1323 408C6 D6 
1024 QQSQE A4E GEL LS 1324 008C8 CA 
1225 @0311 5F1 GONC omaiû 1325 @98CA CA 
1226 Qa814 + 1326 008CC 07 
1227 Q081 + Déstructuration complète du code pour gagner le plus de 1327 QO8CE C2 
1228 00814 + cycles possibles 1328 00800 135 
1229 @314 . 1329 99503 1542 
40514 omCHAR 1330 @0$D7 C2 
00814 + GOSUBL =lo0kah 1331 00609 134 
?D=4 À 1332 9980C 01 
GOYES  rtnec 1333 QQ80E 
A=DATI B 1334 908DE 
+ fin de GOSURL =lookah 1335 QA2DE 
Du=Dû+ 1 1336 @Q8DE 
C=DATE R C(B) := caractère trouve 4Q8DE 
Da=0@- 1 4ASDE 
?A#C B A(B) = caractère lu par lookah Q9SDE 
GOYES rtncc match not found GNADE 
+ GOSUB =rhcteg an avance 1341 QASOE 
Di=Di+ € 1342 MODE 
D=0-1 A 1343 020€ 
+ fin de GOSUR =rhe 1344 GURDE 
RTNSC match Found 1345 G4SDE 
1346 908DE 
oma1® 1347 @O8DE 
1348 O08DE 
1349 QA8DE 
omANY 1350 Q08DE 
Page GE Editeur, chaines génériques <xgen.as® Page 028 
AREUH ASS. V2.4 AREUH 495. V2.4 
C=C-1 1351 0@2DE 848 
60C 1352 008E1 00 
CsC-1 5 1353 008E3 CF 
G0C amNCCL 1354 QQCES 14B 
C=C-1 5 1955 008E3 171 
G0C omEND 6 
rtnec  RTNCC CLOS où BOL : match not found 
omEND  RINSC tout malrt]Ich ! 
+ 



















3 80900 


3 7160 
4iF 
a2 


8E000a 
A£E 
165 

FE 7EAC 
1564 
134 
150 
1524 

9 303 


90e 


69896 


JPC 68 Page 46 


# omBOL : enlé 
+ part dans F 


amEOL  GOLONG 


omANY  GOSUR 
60€ 
RTNSC 
omCCL 
omNCCL GOSUBL 
G0c 
D@=D4+ 
GOSUR 
C=DATY 
DO=C 
Da-D4- 
A=DATA 
LC(1) 
?A=C 
GOYES 
£eC-1 
omCC1g 7C=4 
GOYES 
GOSUR 
RINC( 





le 58/14/07 


car le cas ” 








DR. 
zlockah Cy = match 
zrheten 
rtnce 
match found 
=logkah 
rEncs 
Î 
gettab © élément 
5 i 1e tab [carac 
1 15 © CCL ou NCC 
P A(&Y := CCL ou NCC 
ccL 
cmt(19 
$ st NCCL 24 COS se 
€ 
rEnce no match 
=rhcteg 


match Found 


“est traité à 


tère] 


L 
L 


not tab [carlu] 


donoetses een ses see sense ee pese esse eetéstesrese 


netoat 


But: positio 
Entrez: 
- DO : 
Sortie: 
- D 
Abime: AA). 
Appelle: 
Niveaux: | 

















sos... 


Detail: cf. 


nner D9 sur le motif suivant 
motif courant 
motif suivant 


CCA5, D4 


Softusre tools in Pascal". 


c'est la nouvelle 








G08E0 


3 Q0ED 


06$ED 
6Q8E0 
@98ED 
QAxED 
403ED 
QQ3ED 
Q03ED 
64SED 
Q03E0 
Q@SED 
@02ED 


5 OU8ED 


90%ED 
006ED 
A6ED 
04871 





QOSFE 
602FE 
OQEFE 


22 0301 


94395 
44348 
OAGE 
44315 


3 40918 


9931À 
CLÉS 
GAJ1A 
AILA 
44914 
9a31A 
GQ91A 























693B 


118 
8F00aaa 
GAF 


118 
eFaonan 
137 

135 
2F08000 
148 

93 


Éditeur, 


Editeur, chaînes génériques <xgen.as> 


+ fonction “patsize” 
+ Historique: 
+ 88/06/26: PD/JT conception & codage 


Sonsno essences nes se cs sns sense snesesssessecesesessonsestese 


nxtpat A=DATO S 








2440 $; 
GOYES  psàs 
DO=D0+ CHARS 
RTN 
ps@5  GOSUB ps18 
CONC3) CHARS inutile 
CON(3) EOLS 
CONC3) ANYS 
CON(3) CCLS 
CON(3) NCCLS 
CONÇC2) à END 
CON(3) @ BOL 
CONC3) CLOSS 
psiû A=0 A 
A=DATà P ACA) := motif courant 
C=A À 
A=A+C A 
A=A+C A AÇA) Gemotif 
CERSTK CCA) := © début de la table 
C=C+A A 
CD9EX 
A=DATA 3 
C=A+C A 
Da=C 
RTN 
danses sense sense o esse ne sono saseneseesenesseseerenese 
+ rhcteg 
, 
+ But: lire un caractère, et passer au suivant (getchr) 
+ Entree: 
+ - D1 =" chaîne 
+ - D(A) = nb de caractères 
+ Sortie: 
+ - Cy = 1 : fin de la chaîne 
+ _- Cy = 0, A(B) = caractère lu 
+ Abime: A(B) 
+ Appelle: 
+ Niveaux: 0 
+ Historique: 
+ 88/06/26: PD/JT conception & pompage (getchr et lookah) 
EPPELELE SEE STE EEE OT ONE EEE EEE EEE ETES 











chaines génériques <xgen.as?> 


srhcteg ?D-0 A 
RTNYES 
D=D-1 
A=DATI 
D1=D1+ 
RTN Cy= 0 


ox» 


Done n ee r nn e ones spessssoreeesesceserserensene 


UPDTRO 


l'adresse du buffer contenue dans 
RQ(7-3) à partir de son ID contenu dans R6(2-0). 
Entree: 
- R4(2-0) = ID du buffer 
Sortie 


eyes à 


But: mettre à jou 


. 
+ 
. 
. 
. erreur 
. - C(3-4) = numéro d'erreur (System Error) 
+ - Cy = 9 : pas d'erreur 
. - Ra(7-0) = caractéristique complète du buffer 
. - Di = * past buffer header 
« Abime: À, C. D1 

+ Appelle: 1/0FND@ 

+ Niveaux: 1 

+ Historique: 

+ 88/10/16: PD/JT séparation de POSADR 

« 


oo een esse nee p eee step n nee sono ns essnesen esse eee es 


sysTem GOTO system 
=UPDTRA C=RQ CCX) := buffer id 
COSBVL =IOFNDA 
GONC sysTem "System Error" + Cy = 1 
+ CC) = ID 
+ D1 = * past buffer heade 
+ 
C=RG actualisation de RO(7-2) 
GOSBVL  =CSRC3 
CDIEX 
Di1=C 
GOSBVL =CSLC3 
RG=C 
RTNCC pas d'erreu 
denttto sn none ee nets sense nero nnenesseeesensseseesenseen 
+ ENDPOS 
. 
+ But: terminer une recherche générique. c'est à dire 
+ effacer le buffer. 
+ Entree: 
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AREUH ASS. 


1401 
1482 
1403 
1494 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 


94914 
Qa314 
G9J1A 
00314 
9031A 
Qa71A 
90314 
29914 
90914 
QA91A 


0991D 8004000 


00924 





a0324 


5 00924 


tag24 






= 


SRRRRRERR TE 





9hG4 
99943 
00345 
09947 
40947 
0094A 


5 0094€ 
6 4AG4C 


9934C 


58 0994€ 


a0952 





V2.4 


118 





1FGAUAA 
1574 
135 


ACa 
Di 
DE 
CIS 


94€ 
E2 


8E400Q 
413 


94€ 


Editeur, chaines génériques ‘xgen.ss 


+ - RO(7-2) = caractéristique du buffer 
+ Sortie 

+ Abime: A-C, Di, DA 

+ Appelle: 1/0DAL 

+ Ni 
+ Hi 


aux: à 
Fquast 
/07/42: PD/JT conception & codage 


Poser eee 0000 04e 0000060400 e 000000000000 0 









ce 


=ENDPOS C=RQ 
GOVLNG  =1I/0DAL 





Editeur, chain énériques «xgen. as 
Remplacement de iqnes 


détestonre rss serons een e este 


+ CALCar 
+ Rut: calculer les coefficients 3 et b perm t de 








connaitre la longueur de la chaine rempl 
REFLIN les utilise 
Entres: 
+ K9 = motif de remplscement (dans le sens Math Stack\ 
- MODE71 = 1 $i mode HP-71, 0 si mode HP-Lx 


. La routine 





zones "coeffs" et "coeffb" sont remplies 



















Abime: A(S), ACA), RCA), ), CCA). DCA), O1 
Niveaux: 1 (utili i 
onpose en 
& du prochain caractere à lire 
tre de caractères dans la chaine 









cerffic b sont respectivement le 
nstants (normaus) et le 


ine 





ombre de 







n" est ls longueur de 
An) = 3 + bn est ls longueur de 
ement 





chaine ar 

Historiq 
88/14/08: PD/JT conception 

Motors rss rerenere terne ses peser o eee see tes esse se 







+ 
+ 
, 
. 
+ 
. 
. 
. 
. 
+ Note : 
. 
+ 
. 
. 
. 
+ 


longueur du motif 
t= | premier caractère du motif 


= À si mode HP-UX 
6 ier caractère du motif 





= pas de "\” 
À (caractère normal) 
W (caractère "413 

















?C40 S & HP-71 7 
GOYES  CALC5A oui 
, 
+ Mode HP-LIX 
+ 
CALCI6 GOSURL 
Goc arrivé au bout 
A0 S on état 
GOYES svsnt ce caractère 
+ pas de "\” 
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1464 90454 31C5 
1465 GGQSE 962 
1466 40961 41 
1467 09963 3162 
1468 00367 366 
1469 4OG6A 41 
1470 4436C 

1471 9436C 97 
1472 9096E ER 
1475 94970 66 
1474 69372 590 
1476 049375 B44 
1476 44978 53D 
1477 G497E 

1475 9497B AC 
1479 0997E ES 
1489 98920 6BCF 
1451 09924 

1422 04924 5180 
1483 Qn37e 
144 
1485 
1488 
1427 






1489 
1438 9 
1491 0 
1432 
149% 
1434 
1455 
1456 00 
1437 
1498 
1479 4033 
1546 4493B 4FI 
1641 QUQJE A4E 
1542 4GQAL 442 
1502 Q0944 AE 
1544 44447 414 
1595 OU AA JB 
OAAAD 6@ 









! 
1548 
1543 
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1514 






3 JET 
a Q4JCB SIE 
@ MOT JE 









$ GQJE0 07 
QASEC EE 
QATE 4 








GA9FD SAS 
avan) 
1540 AAAdG ES 
1541 QUAU2 65$SF 
1542 ANAQË 

15 UAAQE 

15 AOAQË 

1545 ANA 

1546 AGAQG 

1547 QOAQE 1FA0OQA 
154% NGA4D D3 
1549 VOAOF 145 
1554 AGAIT 174 
1551 @9A15 07 
1552 GGA17 145 
1552 QuAIA O1 
1554 AGAÏC 

1555 W@AIC 

1556 PAAIC 

1557 GAAIC 

AeALC 

4 GAAIC 

WGAIC 

AAA It 

OAI 


AGAIC 








= 

















Éditeur. chaines génériques <-gen.as 
Remplacement des lignes 


LC(2) xESC 7 

TA=C B 

GOYES  CALC28 état := 1 

LCC2 XREP "8" 

?A#C B 

GOYES  CALC3Y caractère normal 
+ caractère "#' générique 


next one 


A b++ 





GONC CALC19 next one (B.E.T.) 
CALC29 A=A+1 S état := 1 
GONC CALCI19 B.E.T. 


+ Caractère normal 














CALC25 A=9 s état := 0 
CALCS34 B=B+1 A a++ 
GOTO CALC19 
calc99 GOTO CALC99 
+ Mode HP-71 
CALC5Y GOSUBL  =getch 
G0€ CALCIY on 4 fini 
+ 
+ Automate d'états fini 
+ - état = 0 : normal 
+ - État = 1: précédent caractère etsit un "\" 
+ état = D: caractères génériques OFF 
+ état = 3 : état 2 + précédent caractère était un 
LC  STOGL pour économiser des quartets 
$ C(S) := état de l'sutomate 
S 
$ 
CALCEU 
CALCS1 
S 
Goc CALCR2 
CALCR3 74=C B 
GOYES  CALR30 
A=ÿ £ 
GO CALC70 
CALS3A A=A-1 5 
GONC CALC70 
CALCEN 





B 
c 


ALC79 a++ (B.E.T.) 


Éditeur, chaines génériques ‘xgen.as> 
Remplacement des lignes 


CALCEI ? 


CALGIO 


LALHIS 





CALCRA TA=C B 
GOYES  CALEZA "\" 
LCÇS)  SREF Lu 
A4C 
GOYES 
GONC 
CALEOQ AzA+! 


mais c'est un B.E.T. 





CALC7Q R 


Etat final 
Stockage des coefficients 


...… 


CALC99 D1=(8) = 
C=B A 
DATI=C À 
Di=01+ 5 
CERSTK 
DATI:C A 
RTN 


BA) 


coeffa : 
coeffb 


coeffb : 


# 
2 
D 

“ 


onpes osent ess ess sans seen esse sesréeses 


REFLIN 


But: remplacer un motif par un autre dans une chaîne ou 
il y à déjà une occurrence du motif 
Entre»: 
- RO(7-D) = caractéristique du buffer (chaine compilee) 
(OUTRS. ,AVME chaine à traiter 
- AVMÈME indique la fin de ls mémoire disponible 






ss... 
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o0A1C 
aa lc 
CEST 


















hs 


Editeur, chaine 
Remplacement de 


Sauvegarder la 








génériques <xgen.4s 
iqnes 





- R3 = motif de remplacement (dans le sens Math Stack) 
- Dà = * occurrence trouvée 

- CCA) = longueur de 
- coeffsa et coeffh c s par CALCsb 
- QUERY = ! si recher interactive (” 
- ACA) = numéro de la ligne en cours (s 







QUERY 








1574 QGAIC - MODE7I = 1 si chaînes génériques HP-71, @ si H 
1571 OAALC Sortie: 
1572 9941€ - Cy = @ : Gk 
1573 GQAIC suivant C(à) 
15 4 : quit sans modification 
1 : quit avec quelque chose dé13 modifié 
2 : ok sans modification 
3 : ok avec quelque ch de modifié 
(OUTBS..AVMEMS) = zone où est stockée la ligne finale 
- Cy = { : erreur 
C(3-9) = numéro d'erreu 
Abime: A-D. RAC12-8). RI-R2, R3(10), R4(15-11), R4(9-5), 
De. DI 


Appelle: query, POSADR 
Niveaux: 
Note : 


4 (POSADR) ou 5 (query) 

Le registre R3 se décompose en 

- R3(3-5) = adresse du prochain caractère à lire 
- R3(4-0) = nombre de caractères dans la chaîne 











Algorithme: 
répéter 
procéder au remplacement 
si mode = Fe 
alors 
demander confirmation 
amA1C selon réponse 
5 @@AIC Q : sortir ec le 
aAALC No: annuler le remplacement 
anA1C Ÿ 5 
fin selon 





fi i 


rcher | 












nce suiva 
ce qu'il n'y ait plus d rence 
ie: 
/im/08: PD/JT 







/i4/14: 
/14/15: 


FD/JT 
PQ/J 


tésrssseeser ose ne stores esse este e ses seste esse ss 








Errmem LC(4) =eMEM Insufficient M 
errrtèn RINS( Cy = Î = 67 
sREFLIN 

+ 





de ACA) dans K4(3-5). On utilise R4 


— 
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1664 
1665 
1666 
1667 
1668 
1669 
1678 
1671 
1672 
1673 
1674 
1675 
1676 
1577 
1675 
1679 
1680 
1681 
1682 
1683 
1654 
1685 
1686 
1687 
1688 


AAAER 

VAAER 

O9AER 

GAAER 

ÜGAGB 07 
AGAED DS 
QOAEF EI 
00471 2F09000 
G0A73 DA 
AQA7A 1@1 
A8A7D 
GGA7D 
O4AGA 
aQA87 
og45g 
JAAEB 
aa430 
2049 
Q@A92 
A9A94 
80498 
QBAGE 
Q0AA1 
ORAAl 
PQAAI 
A0AA! 
@ PAAAI 
ag 4A1 
WaAAI 
93 QAAAI 
AAA 
5 GOAAI 
36 AOAAL 
AGAAI 
AasAl 
34 AGAAI 
o AGAAI 
CLÉS 
anna 
763 94481 
4 OJAAI 
5 GUAAI 
6 AAAAI 
gehal 
5 OGAAL 
3 GAL 
14 auAze 
aAAAD 2 
AGAAF & 
GARE 


1F000an 
143 

v6 

ca 

cg 

$B2 

4û 

DE 
&Fa0aan 
136 

184 











Editeur, chaînes 


génériques <xgen.as? 


























Remplacement des lignes 
+ Assertions 
+ - RSTK = n 
+ - ACAY = Fin) 
RSTR CO) :=n 
A 
B=B-C A BCA) := fn) - n 
COSBVL =ASLWS A(9-5) := fn) 
A=C À AC4-Q) :=n 
RI=A R1(9-5) := fn): RICA) :=n 
D1=(5) =AVMEMS 
A=DATI À ACA) := AVMEMS 
C=A A 
C=C+B A CCA) := AVMEMS + fn) - n 
C=C+B A CCA) := AUMEMS + 2e(f(n) - n) 
?C>A A 
GOYES  RPL124 
C=A A COCA) := MAX (...) 
RPL12Q GOSBVL =CSLC5 C(9-5) := MAX (...) 
CD@Ex CCA) := DA 
R2=C 
+ Assertions : 
+ R1(9-5) = f(n) (longueur du remplacement) 
. Ri1(4-8) =n (longueur de l'occurrence) 
+ R2(9-5) = MAX (AVMEMS, AVMEMS + 2e(f(n) - n)) 
+ Rä(4-0) = DQ (début de l'occurrence) 
+ 
+ Le décalage se produit en plusieurs étapes 
+ - copier l'occurrence à l'adresee 
+ MAX CAVMEMS, AVMEMS + fn) - n) 
+ - copier ce qu'il y a entre la fin de l'occurrence et 
+ AVMEMS à l'adresse (début de l'occurrence + F(n)) 
+ - remplacer l'occurrence par le motif 
+ - mettre à jour AVMEMS 


Il y a suffisamment de mémoire : on demande 2ef(n) 


=CSRCS CA) := fn) 
A CCA) := DeFtn) 
1 P40 poi pas avoir de LEEMAY 






SBUL 
en sortie de MEMCKL 


EMEMCKL Memory Check uithout LEEWAY 








#f + Le te 19€ 
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R4(G-5) = no 





l'indicateur de modifications 





nces 





MHILE et REFEAT) l'excellent 
ellent csmarade Janick Taillandier dans 


lent JPC 31. 


article de 





















“À ions 
F Securrence vée dans la chaîne 3 traite 
* currence (en caract 
$: 7 stique du buffer 
. acement (dans le < 
. = numéro de la ligne courante (ai 
, 
+ Frocéder au remplacement 
+ 
+ ns longueur de l'occurrence trouvée (dance RST 
+ Calcul de ffn) = 3 + ben 
. 
; ROTH n (longueur de l'occurrence) 
AFu 
À AtWj = on 
1F09400 scoeffh 
AF2 
147 CC) := b 
eFUa064 MPY résultat dans À, R et € 
i A4ASS AFG vérification résults 
Ÿ 92453 Da 
1 SGAGR 346 ‘= 1048575 ? 
À QUASE EE S Errmem non : Not Encugh Memory 
1658 49AGA + ACA) = RCA) = CCA) := ben 
16 Di=D1- 5 D1=(5) coeffa 
A=DATI À 
E=A+ A ACA) := Fin) {a + ben) 
cac Errmem Overflou 
1663 DUAER + 





H ASS. V2.4 


4 GAARS 494 
fé 


15 6449 


! 
171 
1716 OuAB 
















GAABI 
4643 
? QAARI 
DAARC 
GOABE 
25 GAACA 
4OAC3 
QgAC5 
aaacc 
60AD3 
àbADI 
CAD 
90403 
GAD3 
vaaD3 
94AD3 
AGADS 119 
A04D6 112 
atA0S CE 

&HAUB CA 

44400 
GYADD 1B0uGUm 
? AAA 146 

3 QUAE7 EE 
0OAES 
DAAËE 
ñ UAER 
GGAFE 
43 GUAFA 
4 4AAF7 
QAAF3 
GAAFR 
QAAFe 
GGAFE 
VAAFE 
55 OG8FE 
QAAFR 
57 QAAFB 
2 AGAFB 
AAAFE 
par Az 


119 

D5 

ç5 

114 

DA 
8F00000 
8F00409 








£Fuñnan 
D7 

11A 

CB 

cB 


5F00400 











+ 


. 


rs. 


CR 


….…. 


Editeur, chaînes génériques <xgen.as» 
Remplacement des 


Trones 
lignes 


RTNC Bip ! "Ineufficient Memory" 


Préparation des paramètres pour MDVE+M : 








- ACA) = source address = D@ 
- CCA) = destination sddress = MAX (AVMEMS, AVMEMS+f(n)-n) 
- B(A) = longueur en nibs = 2en 
C=RI 
B=€ A 
A B(A) := 2en 
= A ACA) := Dà 
GOSBVL =CSRCS CCA) := MAX (...) 
GOSBVL =MOVE+M 


Préparation des paramètres pour MOVE+M 





















- AA) = e address = DQ + 2en 
- C(A) = tion addr = D4 + 2+f(n) 
- BCA) = longueur en nib AVMEMS - (Dà + 2en) 
C=RI €(A):=n 
A=R2 ACAD : é 
C=C+C A 
A=C+A À ACA) := D6 + Zen 
=AVMEMC 
A 
A 
A BCA) := AVMEMS - (D4 + 2en) 
GOSBVL CCA) := fn) 
D:C 
Cela 
C=C40 A CCA) := DQ + 2ef(n) 


On pourrait peut-être gagner quelques cycles si Île 
déplacement avait lieu à la même adresse, mais les 
routines appelées par MOVE+M détectent presque 
immédiatement ce cas. Il n'y à donc pas lieu de 

s'en inquiéter. Nous n'évitons donc pas ce MOVEeH. 
Tant pis pour jt (qui se serait bien passé d'un MOVE). 

GOSBVL  =MOVE M 

remplacement de la chaîne à l'adresse DO par la 
chaine à l'adresse R3, le motif original étant à 
l'adresse MAX CAVMEMS, AVMEMS + fn) - n) 
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AREUH ASS. V2.4 Remplacement des lignes AREUH ASS. V2,4 Remplacement des lignes 
1764 00B02 . GOBDS 62 B 
1765 00BG2 IA ÊeRe GGDE Bu RPL374 rple 
1766 G6RGS 134 n6=€ OA :=  ecpace à remplir GeBDA 661 REL3E8 ajoute normal (B.E.T.) 
17È7 04808 B44 6 état := 3 
1768 AGORA 1FR4GA D1=(5) =MODE7I 1 si mode HP-71 ou 4 si mode HP-Ux SDS RPL3 B.E.T 
1769 QUBGF 1534 A=DATI ACS) := 1 si mode HP-71 
1770 Q9R13 7301 
1771 AOB1S 118 3 
1772 4@BIE 07 A DAY :2 nombre de caractères UUBEE S ajoute un caractère 
1773 00B13 GFA00u0 GOSBVL =CSRCE 3 DUPÉE 161 D4=Dg+ 
1774 GABIF 135 pic DT := 7 premier caractère dans M5. 49BF] 55F GONC pl398 B.E.T 
1775 
1776 g4c 244Q s mode HF-71 RPLEUG 
1777 64 GOYES  RPL300 + 
1778 . 4 + Après il faut actualiser AV 
1773 + Mode HP-UXx Q GOBFA 
1784 . GUEF4 113 
RPLI6G GAEF7 DA À ACAj:= on 
° A=Q Ë a 4 Dar 3 2F00009 =CSRCS CA) := fn) 
mac@g E2 À 
RFL24@ ce À LCA) := 2e(fin) - n) 
, 1F00090 =ÉVHEMS 
+ Le label RPL296 est 13 pour éviter des COTO qui branchent 143 A 
+ à des 6079 CA ä 
# h += Ze(Fin) - n) 
SEuboe RPLEt4 1 e 
495 + Faut-il poser une question 7 
+ 
précédent caractère = "A" EQUERY mode interactif C2) 
7 Mod 
RPLÉ06 oui 
RPL344 non 
. 
+ 
+ 
: normal (BE. T5 + Pour la stion, il faut qu'il 
RFLESO + LIF en c la chaine. Il faut 





+ CAVHEMS-C 













#6R4D 5) en longueur LIF. AVM 
dhRGE + entre FPE et RPLEGG. 
Jap su RFL240 À État ++ À $ 
Fo RPL2SQ B.ET RFL609 M 
: 
RPL2/4 rple 
RFL23a 
RPLE50 Ë ajoute un caractere 





ARE 7 plan GOTO  FFLSO9 






























































Es #gen.as 
2 | 
longueur LIF 
mais sauver d'abor ar d 
est faite en poussant 
l4 pour eviter Tes H0T0 qui 
= état 
Fagupe 
118 
cFannan 
DÉ 
188 
SES vs 0 
sjouter normal CRE.T. A CCM) += début occ 
état := A AÇA) := © QUTBS 
sjouter normal CB.E.T DA := ‘ dé 
A CAD = delta en nibs + lang LIF 
acte ral k CUAŸ = ne colonne (l..mas) 
ET =ASRUS  A(AY := no ligne 
+ 
+ CA) = ligne 
\ + CA) colonne 
+ ND = t ligne (lüngueur LIF) 
A=âtl Ê D} := code de re dé qu 
GONC sh a, , 
RP3210 A=A-1 © état := à . es dans l'ordre (restaurer 


RP3215 


dagno 





Fhaudg 
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AREUH ASS. VZ.4 Remplacement des lignes AREUH ASS. V2.4 Remplacement des lignes 
1964 QQCBG 114 CER? 2064 Q0D46 F5 GOYES  RPL999 oui : Fini 
1365 OÙCRI DA Az À A{A) := DOG 2065 40048 + 
1965 QUCBRB SFAAAAA GOSBVL  =CSRCS 2966 @0D48 + Cas standard : il reste assez de place pour une 
@0cC2 194 R2=C 2067 00048 + nouvelle recherche. 
QacCcs 1081 RI=A 2068 04048 + 
a OQCCS + 2069 49048 1C4 D1=Di- 5 D1=(5) =OUTBS 
AACCE + Voyons maintenant ce que l'utilisateur à demandé. 2070 00D4B 147 C=DATI À 
aaccs . 2071 O0D4E 137 CD1EX CCA) := © OÙTBS, D1 := OUTBS 
QQCCE ABB € F C(A) := code de retour de query 272 00051 173 Di=D1+ 4 
eQCCB SFAa2000 6 =TELJMC 2073 00D54 137 CDLEX ACA) := OUTBS + 4 ; D1=(5) OUTBS 
dacD2 go REL(3) RPL70Q exit 2074 90D57 + 
@aCcD5 D28 REL(C3) RPLSO0 yes 2075 @@D57 + 88/10/15 : correction du bug 
A0CD8 F1A REL(3) RPL7I0 no 2076 @0D57 eo  GENRPLC$(A#4."7.","") 
a8CDR 2077 00057 + Le vrai début doit être trafiqué, car on ne doit 
20CDB RPL708@ 2078 00D57 + plus trouver de match en début de chaîne. Avant 
9 90CDB . 2079 @0D57 + on trouvait un match à chaque tour sur l'exemple 
2acps + Code de retour = @ ou 1. C'est exactement la valeur 2030 @0D57 + ci-dessus 
20cp8 + contenue dans R3(10) 2081 90D57 . 
2 QACDB . 2082 08D57 CE C=C-1 A C'est de l'escroquerie 
90CDB 118 CER3 2883 06D59 109 RI=C Ri := © vrai début de la chaîne 
QACDE 80FA CPEX 18 P := code de retour, C(10) := @ 2084 QAD5C 
QQCE2 50Fa CPEX è B 722. CCG) := code de reteur 2885 90D5C AF2 C=0 4 
6 OÙCEG 20 P- & P:=0 2086 @0D5F 174 D1=D1+ 5 D1=(5) =AVMEMS 
QOCES J0A ?C=a P 2487 Q@D62 147 C=DATI À 
8 9QCEB A9 GOYES  RPL705 on peut sortir tout de suite 2088 00D65 EC C=C-A A 
@OCED 46 RSTK=C RSTK := code de retour 2089 @0D67 SIE CSRB CCA) := longueur de ce qu'il reste 
QACEF 7DFA GOSUR  unda on remet las choses en place 2894 0@D64A DA A=C A ACA) := longueur en caractères 
Q0CF3 A7 C=RSTK RSTK := code de retour CAL 40D6C 
docFs 03 RPL705 RTNCC 2à32 @0D6C 8E2C7F GOSUBL =POSADR 
Q@CF7 2093 0a072 . 
AOCF7 + 2094 90D72 + Si pas d'occurrence, sortir. La Cy n'a pas été modifiée. 
95 Q0CF7 + mode interactif et réponse = [N] 2495 00072 . 
396 @0CF7 + [1 faut donc remettre les choses en place. 2096 00072 523 GONC RPL393 Pas d'occurrence : fini 
DACF7 . 2097 90075 . 
VACF7 75F0 RPL710 GOSUR  undo vail3, Les choses sont remises... 2093 00075 + C(A) = LEN (occurrence trouvée) 
9 A4CFE . 2099 09D75 + D@ - position de l'occurrence trouvée 
YACFR + Valeur à ajouter à D4 : +1 2100 66075 . 
AACFR . 2191 @0D75 8AE ?C49 h 
2 QQCFB DC C=0 A 2102 00078 FI GOYES rpl190 ok, on peut remplacer 
3 OOCFD E6 CeC+l À 2103 6907A 136 CD4EX D9 := LEN(occurrence), C(A) := DO 
O6CFF 691 SONC RPLQUa RB.E.T. 2104 46D7D . 
gene 2145 @4D7D + Restauration de l'ancien D4 qui était dans R4(15-11). 
gene ° 2106 99D7D + 
2 #aDo2 + Deur cas 2167 60D7D 114 A=R4 
2 +904 + - mode interactif et réponse = [Y] 2108 Q@DEQ 810 ASLC 
2004 44002 +. - mode nün interactif (réponse implicite = [Y]) 2193 00083 810 ASLC 
29ià AADUC + Il y a donc eù modification. R3(10) := 1 2119 00086 810 ASLC 
2411 40D02 . 2111 99D89 810 ASLC 
2612 80092 118 RPL840 C=R2 2112 @aD8C 810 ASLC ACA) := ancien DO 
2813 09045 24 P= 16 2113 00DSF SA2 ?A=C À 
Page OA Editeur, chaînes génériques <xgen.as® Page 044 Éditeur, chaines génériques <xgen.as> 
AREUH ASS. VZ.4 Remplacement des ligne: AREUH ASS. V2.4 Remplacement des lignes 
Sa 1 2114 49D92 94 GOYES  RPL959 stop ! match nul. 1 partout. 
24 a 2115 44094 13 CD9E> on remet les choses en place 
1aB R3C10) := 1 2116 40097 rpliaë COTO RPL190 et on y va pour le remplacement 
. 2117 0603 
+ Mettre dans C(A) le nombre de caractères à ajouter 2118 0603 
4 44D8F + à 06 pour continuer d'explorer 13 ligne, À Cas spécial : on tombe sur une occurrence de longueur 
YDAF . nulle derrière une occurrence déjà trouvée. On 
G9DwF 114 CeR1 nb de caractères à ajouter à D4 À l'ignore donc 
AYD1Z £F09G4S SRVL (5 COCA) := fin) (en caractères) 
9ac13 . RFL950 A=A+1 A 
dati e C(A):= taille du bloc que l'on vient de passer c'est à sis q Az=A+] A 
40013 + dire la valeur de l'inerément de DA pour la recherche à s DA=A D4 := AA) := nouveau DO 
auD14 + suivante. DYE 2 GONC RPL92Q B.E.T 
Y6D13 . 5 
a@D13 RPL933 
46014 RPL94Q . 
94019 . 2 44DAS + La valeur de retour est 2 ou 3. C'est R3(10) + 2 
44013 + CEA) = taille du bloc que l'on vient de passer c'est à 2 QADAS . 
2 94013 + dire la valeur de l'incrément de U9 pour la recherche @4DAS5 C=R3 
33 09019 + suivante. Attention : la taille du bloc est en 90DA3 * := code de retour, C(10) := @ 
96013 + caractères ! YODAC . C(4) := code de retour 
94013 +. 2135 44DE9 
49013 + Rechercher maintenant une nouvelle occurrence 5 96DP2 
94013 + 2 24085 
3 @9019 112 B=RC ACA) := D 5 04DB8 Cy := @ : C(O) 
44D1C CA A=A+ À è 44DBA 
A GODIE CA A=A+C A AA) := nouveau Dû A4DBA Meet en e0 00 0 0 0 nn emeneneesense nee eesevenses 
g4D24 134 D@=A 06 := ° chaîne à chercher QGDEA e rple 
: 49023 D0DBA . 
86022 + 3 490BA + But: copie le texte qui a été sauvegardé derrière la 
99023 + Vérifier si la nouvelle position de DA est plausible @ODBA + chaîne normale à l'endroit pointé par D@ 
94027 + c'est à dire pss derrière AVMEMS) 5 GADEA + Entree: 
90023 + Assertions : GGDBA + _- DO = destination address 
46023 + ACA) = Dh = nouvelle position de début de recherche 94DBA + _- R1(4-0) = longueur du motif original (en octets) 
44023 + Stocher dans R4(15-11) la valeur actuelle de DO pour 2 4ADPA + - R2(9-5) = source address 
94D27 + comparaison après POSADR, et ceci afin de détecter 1143 GA4DBA e Sortie 
3 + deux "null match" de suite. GADEA . - D@ est réactualisé 
+ 96DBA + Abime: A. BCA). C(A), D(A), DO 
pu CeR4 90DRA + Appelle: MOVEeM, ASRU5, CSRC5, CSLCS 
4QD26 £F604a BOSEVL  =CSLCS 6QODBA + Niveaux: 2 (MOVE+M) 
46020 D6 C=A A 49DBA + Note: Di est sauvegarde lors de l'appe 
QOUÛF SFOn0AA GOSBVL  =CSRCS d AGDBA + Historique: 
waD36 100 R4=C 2 AADEA + &88/14/08: PD/JT conception & codage 
7 66039 RPL329 GOUBA + 82/10/09: PD/JT débogage 
00D39 . 2153 64DBA CCPECEET EEE EEE TETE EE TT EEE TES EE TELE LS] 
00053 + Est-on arrivé au bout de la chaine ? 2153 690PA 
2069 96039 . è O4DPA 137 rple CDIEx 
2961 64053 1700098 D1=(5) =AVMEMS 61 A0D8D £F20000 GOSBVL =CSLCS C(9-5) := Di 
2062 A0D49 147 C=DATI À CCA) := AVMEMS @0DC4 + 
2863 40043 86 LES À 94DC4 + Pour MOVE+M 
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Page 045 Editeur, chaines génériques ‘vgen.as Editeur, chaines génériques ‘,gen.3c 
AREUH ASS. V2.4 Remplacement dec lignes V2.4 vess SYMEUL TABLE ee 
2164 94DC4 + ACA) = source addres: Extra Urn 1616 1671 1962 
2165 64DC4 + BCA) = length in nibs Estrn Ukn 1931 1947 2172 2229 
2166 68DCA + C(A) = destination address = AVMEME Extra Ukn 4615 6617 
2167 @ADC4 * =AVHEMS Extrn Ukn - 6617 1675 1741 1825 1906 1948 2061 2265 224% 
2168 @0@DC4 111 00092 Abs MIS - 4136 0617 0565 
2169 @9DC7 DE A OAU1 Abc GOCE - 6193 4514 4569 1315 
2170 606DC3 C& À BCA) := length in nibs 00906 Abs 0419 - 6213 9337 0540 4850 
2171 96DCB 112 06901 Ab: 0024 - 0210 4537 
2172 QODCE 8F4000@ 2ASRWG  ACA) := source address 00924 Fel 1441 
2173 @00D5 136 CCA) := destination address GUZAE Rel 04736 
2174 08006 6F00006 =MOVE +M 90009 Rel 0112 
2175 @0D0F C9 À CCA) := destination + length Extrn Urn % 
2176 AODE1 134 né tualisé Extre Ukn 
2177 4UDE4 SFO0094 SOSBVL RC& restauration de DI Extra Ukn é 
2178 4ODER 135 DI=C Ertro Urn à 
WQDEE Qi RTN Extra Urn 
40DF@ + 
@0DFé Dhosesser soso és esse nn esse eee Extrn Ükn 
: HaDFA + undc GQJDA Re a 
9a0Fa , 99YEQ Rel È 
auwFa + But: remet le texte Lomme il était avant la dernière GQ3FA Rel è 
5 VoDFA . modification 90985 Rel 8 
CH + Entree: { à 9994 Rel 
G@DF@ . - R1(4-4) = longueur du motif original (en octets) CALC2A 99375 Rel 
8 6@DFe #. # 5) = longueur du motif remplacé (en octets) CALC5 9097E Rel 
60DFAa + 3 4-4) = destination CALC3à 9OS7E Rel 5 
CIE) +. - R2(9-5) = source CALCSQ 04988 Rel = 
doDFé + Sortie: CALCEG 993BB Rel 1544 
aapFa + - AVMEMS est réactualisé CALCEL 99106 Fel - 1502 
AADFA + Abime: À, RCA), € Do, D1 CALCE 009E3 Rel 1544 
a00Fa + Appelle: MOVE+H 5, ASRWS CALC63 09944 À 
95 64DFO + Niveaux: 2 CHÔVE CALC74 anA4Q V83E 
5 WADFA + Historique: dUAG6 F 
4aDFa + /14/16: PD/QT conception & codage 00003 
5 40DFà Donne ones ne nd nn nee nds een semer gain! 
à QONFO dune 
600F6 119 unda  C=R1 404a3 
@4DF3 O7 D=€ A DEA) ien é4va7 
? QADFE C7 D=0+0 ë NEA := Den aagul 
WaDF7 £Faaguu ECSRCH CA) := fn) LA) 
QAaDFE CB À LCA) :z Def(n) GUTLA 
aa Le AÇAÿ := DU aÿaus 
du CA h ACA) := D4 + Zefln) (source sddr) 90001 
QQE og: uno! 
8 OGEAS 1RUAOGG =AVMHEMS U@AIC F 
DAEUC ñ CCA) := AVME 
AGE UF à CCA) := AVMEMS - (Où + Cef(n)} GDES 
d8E11 DS A RCA) := length of blact Extrn 
AGE 13 Extrn 
3 GUESS 114 ( CCA) := pu Extrn 
Page Udt Editeur, chaine Editeur, chaines génériques <«gen.as 
AREUH ASS, VE.4 Remplacement de: liqnes Va.4 eee SYMROL TABLE +00 
£=000 A CCASÿ := DM + Len 1381 
+ - 4604 
+ ACA) = source ade = pà fer) 9196 - 
+ BA) lengt f bloc in ni = AVMEMS - (DQ + Zef(n)} 4236 - 
+ CEA) = dest addrese = DA + 
] . 
VAE1S SFu0Gan GOSEVL  =MOVE+H =MODE7I 
21 VOEIF =MÔVE +M era 
? ANEIF 119 =MOVEDS 
? DE A 2n =MEY 
A = Ler 
0561 
A (4) Lt) 0241 
ASRU ACAD := Mb 
+ ath of bloc in nibs = Den 
+ t address = Eû 
GOSRVL  =MOVE en 
+ 
e AVHEMS += Deln - Ftn)) 
. 
=AYMEM 
A AC) sn 
CSRÇG QUAD 5e tn} DARSA 
A A(A) := n - fin) A@RGE 
A UCAD := AVHENS QBSE F Ÿ 
A 9087 1£ | 
À | 
A A S += Den - F(n)) 
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1464 1794 28RED _ 
à6427 = 137E 
Extra 
Extra - 
2207 a = 

as 0504 6608 0533 0549 








Source : xgem.as 
Object ob j/*xgen. ao 
AGE 0512 0520 4535 0547 USE 
Listing : list/xgen.al 
Date Sat Aug 12 17:41:36 1954 
Errurs : 098 
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